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TIREZ PLUS DE VOTRE TRS-80* 
ET DE VOTRE POQUETTE SHARP 


Essais : une imprimante 4 couleurs, p 14e Fortran, 

p 16. Trucs à brac, p 20. Zap and patch, p2l1eLes 
disquettes de TRACE, p 23 e 4 program- 

mes courts, p 24 e Pilot, p 25 e Les pro- —— 
A. _N grammes de base, p 27 Vos amortisse- 

m— ments, p 29 + De jolies courbes, p 31 e Le 

jongleur, p 34e Des outils, p 36 < Vos disquettes ont 

Z iaces, p 38 + Les LS graphiques, p 40e 


oauvegardez vos 
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histogrammes, p 62; Boufman, p68= F4 











Un rapport Prix-Performance inégale !. 


Caractéristiques 

e Z80A CPU (3,2 MHz); 

e 64 K RAM (extensible 192 K): 

e Clavier minuscule/majuscule 85 touches; 
e Clavier numérique séparé: 

e 8 touches de fonction programmables: 

e Ecran vert 12 pouces haute résolution: 

e 24 lignes de 80 caractères ou 16 lignes de 


64 caractères; 

2 disquettes 325 K chacune (extensible à 4 
de 650 K); 

CPM 2.2 ou NEWDOS 80 version 2: 
Interface parallèle pour imprimante: 
Interface série (modem/communication): 
Horloge en temps réel. 

OPTION graphisme haute résolution. 


Professionnel 

De part ses performances, il s'adresse aux pro- 
fessionnels mais son prix le rend accessible à 
une plus large clientèle. 


ER 


Programmes 

Disposant de plusieurs «operating systems» 
(les plus répandus au monde) et grâce à son 
affichage commutable, il permet de dévelop- 
per ou d'utiliser l’importante bibliothèque de 
logiciel écrite sous NEWDOS 80 (GENIE I et Il, 
TRS 80 modèle I) ainsi que les standards dis- 
ponibles sous CPM (langages utilitaires, 
etc..). 
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Editorial 


Bonne année à tous ! ! 

Bien sûr, vous auriez probablement préféré lire “bon 
Noël à tous !"... ce qui aurait été la preuve indé- 
niable de la sortie à l'heure, pour une fois, du nu- 
méro 4. Tres bien, on recommence tout_.. 


Bon Noël à tous !!! 

Nous sommes heureux de penser que ces fêtes vous ont 
probablement apporté un programme où une disquette 
ou peut-être même un ordinateur... 


Quant à TRACE, ce numéro est le dernier de sa pre- 
mière année : bon anniversaire ! 


Ces choses dites, faisons un rapide bilan de la si- 
tuation. Dans l'ensemble, TRACE se porte bien et, à 
en juger par votre courrier et vos encouragements 
toujours sympathiques, se montre utile et apprécié. 
Nous commençons (le démarrage a été dur toutefois 1!) 
à recevoir VOS articles ce qui fait que le prochain 
numéro est déjà très avancé (si, si !). 





Durant cette année, des mots sont souvent revenus 
dans vos lettres : parution trop espacée, en retard, 
pas assez de pages, trop sur les disquettes, pas as- 
sez sur les cassettes, articles trop techniques, etc. 
Sur les deux premiers points, nous avons pris de bon- 
nes résolutions... qu'il ne nous reste plus qu'a te- 
nir. Sur les autres, il est difficile de contenter 
chacun de vous individuellement, mais nous essayons 
toujours de "rectifier le tir" en fonction de la 
moyenne de vos demandes, et nous continuerons de le 
faire durant cette nouvelle année: N'hésitez donc 
surtout pas à nous envoyer vos articles éventuels, 
vos essais de logiciels et de matériels ou même ce 
que vous pensez du dernier livre que vous-avez lu 
sur le sujet. Actuellement, le journal "tourne! à 

90 % avec des articles issus de notre entourage im- 
médiat : il y a donc seulement 10 % d'articles ve- 
nant de vous, lecteurs, alors qu'il pourrait y en 
avoir quatre fois plus ! Certains lecteurs se refu- 


gient derrière ces paroles : "- Mais je ne suis pas 
écrivain...!" Si vous saviez le nombre de jeunes au- 
teurs qui écrivent dans TRACE... Ils n'ont. jamais 


prétendu être écrivains mais ils ont des idées et 
veulent en faire profiter les autres ! Allez, un pe- 
tit effort ! Et puis nous sommes là aussi pour lire 
vos textes et les remanier si besoin est. Vous-vou- 
lez que TRACE soit un jour mensuel ? Vous le voulez 
vraiment ? Alors ne vous émbarrassez pas de tels pré- 
jugés. Il n'est pas insensé de penser que chaque lec- 
teur de TRACE (et vous êtes des milliers !) possède 
quelque part sur papier, sur cassette, sur disquette 
ou même dans sa tête, un programme, un truc ou une 
réflexion qui lui a permis d'avancer dans la connais- 
sance de son système. De plus, écrire un article, si 
petit soit-il, est une expérience qui permet souvent 
de formaliser et de clarifier les idées que l'on veut 
transmettre et peut se révéler d'une aide précieuse 
pour sa propre compréhension. Alors, à vos plumes, 

et bonne année ! 


TRACE 


eur en chef: Alain Pinaud — Editeur: Bernard Savonet — Directeur de la publication: Jean-Pierre Nizard —- Maquette : 
2 Dauiref — Secrétariat: Nicole Aleman — Rédaction et abonnements : Editrace, 8 rue Saint Marc, 75002 Paris — Régie 
aire : Force 7, 39 rue de la Grange-aux-Belles, 75488 Paris Cedex 10. Tél. (1) 238.66.10 — Diffusion auprès des boutiques 


tiques et librairies : Editions du PSI, 41 rue Jacquard — BP 86 — 77400 Lagny — Tél. (6) 007.59.31. 


Abonnements 4 numéros (un an) : France 85 FF ; Etranger 100 FF par avion 170 FF. 


mt colzboré à ce numéro: Kaarina Alain, Tristan d'Amico, Jean-Claude Attal, Christophe Bouchon, Jean-Claude Bouman, 
smiche, Roger Buvat, Jean-Francois Chapin, Roger Di Marsilio, Daniel Glazman, Christian Kraemer, Pierre Landry, 
asseur, Pierre Lhéritier, Frédéric Mora, Claude Nowakowski, Rémi Piette, Jacques Pinto, Bertrand de Pommery, 





TRACE N° 4 - Janvier 1983 - 3 



























Lee Le 
EFRISE 


- 41 ROUTE DE RENNES - 44700 ORVAULT - 
TÉL. (40) 59.18.51 Ex 
SPECIALISTE ; 

Se 
DE L’ IMPRIMANTE À | € 


FROFESSIONNELLE Ne 


7 il 


D ? OCCASION 
AU FRIX DE ... < 


__-24SOF 
{recondit ionnée) 


ee 1 7O00F 
(non revisée mais bon etat) 


LOGABAX 


LX—15 0 


e 1532 COL ONMES 
eo 150 CARACT/SELC 


+ LARGEUR PAPIER RÉGLABLE 
+ JEU DE 96 CARACTÈRES DROITS ET /TALIQUES 
+ ÉQUIPÉE DES OPTIONS :- BUFFER DE CARACTÈRES 









EN OPTION POSSIBILITÉ DE CARACTÈRES “APL7 - IMPRIMANTE SUR PIÈTEMENT 
ACCENTUES, SEMI-GRAPHIQUES, MATHEMATIQUES, CONNECTION : Cable POUR TRS-80 » 
INDICES. KIT INSTALLÉ : 320f VIDEO GENIE munis de Ll’interface d’extension : 250 F 


ss l’interface d'extension : 320 F 
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SERVICE KEFRISE c ’est aussi . 
LES MEILLEURS FRIX SUR le materiel NEUF 


Genie I II Genie III 
PROMOTION : Drive TEAC 5 Pouces » 40 PISTES 


Moniteur Video 
GENIE I + MONITEUR 12 7” : 3995 FHT SIMPLE FACE » DOUBLE DENSITE ? 
EE avec ALIM et BOITIER...2470 F | || Ecran ANTI-REFLETS 

Occosions cet DRIVE 5 ’’,Dble dens.»80 PISTES 
TRS-80 Modeles I et III 





















E-—KEFRISE-RLEFOT VEN 
F 
SE RSR ; BON DE COMMANDE 
Creer à retourner à SERVICE REPRISE - 41 route de Rennes - 44700 ORVAULT 
ul Nom _ = 7: PrÉDOM = 
RSR RS > Adresse - - 
novesbre MDX-6 » NOUS CONSULTER 
D Ë 2 
— RACE SSL ET RU 5 
RL LS ES RU RS pe Sépcifier le type d'ordinateurs PERRET 2. 
RE { PUHT. 
valeur neuve 14500 F HT.Livre en COFFRET. æ 
64 touches + 10 touches fonctions 1...200 F à 
soit 3F La touche « effet Hall 111 F 


. 
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ALIM 5 Volts 4 As r 
dans Rack 19 pouces 


LYRE...-0r10 F/PIN 









Imprimante Reconditionnée | 2450 | 
Imprimante en l'état 
Câble de liaison 
es 
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TRS-80 Modele I ET Modele III sont des marques deposees de TANDY RADIO SHACK 
VIDEO GENIE SYSTEME est une marque deposee de EACA 


Æ -— € 


Extrait de nos CONDITIONS DE VENTE : 
Prix HT au 10 novembre 82 au depart de Nantes. 
T.V.A. 18r6 % sur tout le materiel. 
Materiel disponible dans la Limite des stocks. 


F TTC 


2 | voyagent en Port dü Mandat D 





Cijoint régl. par chèque O 
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le magazine des utilisateurs de TRS-80' 










TRS-80 modèle 1, TRS-80 
modèle 2, TRS-80 modèle 3, 
TRS-80 couleur, TRS-80 
de poche, poquettes Sharp* 
Vidéo-Génie*, LNW# : 

si VOUS utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a été créée pour vous. 
TRACE vous fournit quatre 

fois par an des programmes, = DOQUEL LS 
des astuces, de nouvelles idées ee = 
d'applications. TRACE est — 
indépendant de tout constructeur, 
et vous tient au courant de toutes iii 

es nouveautés dans les domaines des logiciels, des matériels et des 
périphériques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivité 
indépendance, les produits matériels ou logiciels qui vous intéressent. TRACE n'est 
pes en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numéro, il vous suffit de nous retourner le bon de commande ci-dessous. 











MESSAGE DESTINÉ AUX UTILISATEURS 
DE TRS 80 A DISQUETTE 








Désormais, tous les programmes 
publiés dans un numéro de TRACE 
et se rapportant aux TRS 80 de table 
ou à leurs compatibles 
sont regroupés sur une disquette 
que vous pouvez recevoir 
avec votre exemplaire de la revue. 












ES ER Sren. Miiéo-Géme et LNW sont des marques déposées. Trace a le même éditeur qu'ORDI-5 le magazine des utilisateurs de ZX SINCLAIR 


TRACE, le complément indispensable de votre TRS-80 


BON DE COMMANDE 
! à retourner à TRACE, 8 rue Saint-Marc 75002 PARIS L 


1 No Profession 














Code postal ee Ville | 


? len 40 de TRACE (NB:les n° 1 et 2 sont épuisés). 
F: Etranger** : 30 FF). 

2 disquette d'accompagnement des n°° 1 et2 [0] dun°30  dun°40 

te: 55 FF; Eiranger“* : 65 FF). 

er à TRACE pour 4 n°°, à partir du n° 30 dun°40  dun°50 

rt France : 270 FF: Etranger** : 300 FF; par avion 380 FF). 

ri France : 85 FF; Etranger** : 100 FF; par avion 170 FF). 

= oi mon règlement indispensable par chèque bancaire CI chèque postal [1 virement = 
RE ncE c6MSEr on wremen en FF compte Ceci Lyon Fans 2° 30002 00202 5201 M Les frs de virement sont à le charge de l'acheteur. 
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DEATH PLANET : 


Aventure avec graphismes 3 Dim. 
Evadez-vous de l'hôpital psychiatrique 
où vous avez été interné par erreur. 


TIGERS IN THE SNOW TRS : 
ame simulant la bataille 

rdennes (Décembre 1944). 
Pour deux joueurs ou en solitaire 


SEA DRAGON : 

Dirigez un sous-marin nucléaire 
à travers un dédale de mines 
magnétiques, de cavemes sous-marines, etc. 
En surface des chasseurs 

de sous-marin vous traquent sans merci. 
Jeu avec graphismes 

TOKK7 ETS 
LASER DEFENSE : 

De votre P.C. de tir anti-missiles 
empêchez la destruction des U.S.A. 
en abattant les missiles ennemis. 
Animation graphique et sonore. 
16K, K7 


THE BLACK HOLE : 
Jeu d'adresse avec animation 
graphique et sonore où vous allez devoir 
Combattre près d’un trou noir. 
Mod. 1 & mod. 3 


Wargame. Batailles de chars 

sur le front russe en 1943. 

Fonctionne selon les règles classiques 

du wargame : cases hexagonales 

figurant différents types de terrain 
ontagne, plaine, route, ville, etc). 
ossibilité de voir sans être vu. 

Tient compte de nombreux paramètres. 
Très belle présentation avec plan de jeu 

et jetons cartonnés, etc 

2 joueurs ou en solitaire contre l'ordinateur. 
1, K7 315 FTIC 








COMPTABILITÉ AVEC TRS-80 MODELE 3 : NOUS CONSULTER 


et de tactique. 
Animation graphiques et sonore. 
16K, K7 168 FTIC 


DAMES CHALLENGER TRS : 
Dames françaises contre l'ordinateur. 


Plusieurs niveaux de jeu. FANS + 




























Joueur de très haut niveau. DEFENSE COMMAND 
KT ee 220 FTIC 1Pi Five Software) : 


SARGON 2 K7-TRS : 

Jeu d'échecs contre l'ordinateur. 
Partenaire de bon niveau. 
TOC KT 


hais les dépôts de carburant 

de la flotte galactique conire les attaques 

des envahisseurs qui cherchent à voler 

285 FTIC | vos précieuses réserves. 

Animation graphique et sonore. 
K, K7 


168 FTIC 


STELLAR ESCORT (Big Five Software) : 

Partez à l'attaque des envahisseurs 

extra-galactiques. 

Animation graphique 3 Dim et sonore. 
K7 168 FTIC 


TEE ne 70 FTIC 


LES ENVAHISSEURS : —— "xs 
Dites fiers core CEE 


A CAMES NP 


les hordes d'envahisseurs extra-terrestres ARMORED PATROL: 3 
qui vous attaquent en rangs serrés. SE _i ee gone : De 


Animation graphique et sonore. 
16K, K7 110 FTIC 
ROBOT ATTACK (Big Five Software) : 
Eliminez tous les dangereux robots 
qui ont envahi la station interplonétoire. 
Attention aux murs électrifiés | 
Très belle animation graphique, 
sonore et parlante. 

6K, K7 


MATHIX : EN FRANCAS 


Agréable jeu de réflexion contre l'ordinateur. 
18K, RARES Ne 90 FTIC 
GALAXY : 

Jeu de stratégie. Simulation de conflit 
entre plusieurs systèmes stellaires. 

Vous commandez une armada de 
vaisseaux équipés d'armes dévastatrices 

et devez éliminer celles des ennemis. 
Jusqu'à 20 joueurs simultanés 

ou en solitaire contre l'ordinateur. 


16K, K7 185 FTIC 


PANIK : 

Les Mzors ont envahi la Terre. 

Vous seul avez survécu, mais ils vous 
traquent et ont réussi à vous coincer 
dans un de leurs centres administratifs 
(un ensemble complètement fou 
d'étages reliés par des échelles). 
Peut-être parviendrez-vous encore 

une fois à leur échapper en leur tendant 
des pièges ? Belle animation graphique 


et sonore. 
16K, K7 295 FTIC 


168 FTIC 
COSMIC FIGHTER (Big Five Software) : 


Aux commandes de votre vaisseau spatial 
armé de canons laser vous devez 
défendre la Terre contre des vagues 
successives de plusieurs types 
d'envahisseurs extra-galactiques. 


HORERT M 168 FTIC 
SUPER NOVA (Big Five Software) : 


Vous naviguez dans l'espace encombré 

des débris d'une gigantesque étoile 

ayant explosé. Evitez ces débris 

ou détruisez-les, 

Animation graphique et sonore. 
K, K7 


168 FTIC 


METEOR MISSION 2 
(Big Five Sofiwar) : 
Allez secourir les astronautes en détresse 
sur une planète entourée 
d'un redoutable anneau d'asteroïdes. 
Superbe animation graphique et sonore. 
TORRES Re 168 FTIC 
ATTACK FORCE (Big Five Software) : 
Déltruisez les vaisseaux extra-terrestres 

ant envahi une ville de la Terre. 
Néon beaucoup de réflexes 


eu de rôle avec graphismes 

en 3 dimensions. Dans un vaste vaisseau 
spatial (144 pièces, 4 niveaux), 

traquez et éliminez les robots envahisseurs 
équipés d'armes redoutables 

Pour plusieurs joueurs ou en solitaire 
contre l'ordinateur. 

16K, K7 185 FTIC 


LOGICIELS POUR TRS-80” ET VIDEO-GENIE 


ARRIVAGE DE NOUVEAUTES TOUTES LES QUINZAINES 
TOUS LES LOGICIELS FONCTIONNENT SUR TRS 80 MODELE 1 AINSI QUE SUR VIDEO-GENIE 1 ET 2. 





UTILITAIRES ET 
PROFESSIONNELS : 


EDITOR-ASSEMBLER PLUS 
MICROSOFT) : 
util de baëe pour programmer 

en langage machine, Le plus puissant 

des éditeurs-assembleurs enversion cassette. 

Comporte un débugger pour 

la mise au point des programmes. 
K7 370 FTIC 

495 FTIC 


BUGOUT / PRO : 
Utilitaire pour la mise au point 
de programmes en langage machine : 


580 F TIC 


DISASSEMBLER 1 : 
Désassembleur Z-80. Produit un programme 
source qui peut être utilisé avec un 
Editeur-Assembleur. 

195 FTIC 


GR anis s ee sion à 


STOPPER-TRS : 

Utilitaire pour la mise au point 

de programmes en Basic : exécution 
instruction par instruction, examen et 
modification du contenu des variables, etc. 


16K, K7 280 F TIC 
ENHBAS : 


Ajoute de nouvelles fonctions au Basic : 
tracé de lignes sur l'écran, tri rapide : 
en mémoire, branchement à des labels, etc. 


TOK KI SR RE O FTIC 


INFINITE BASIC : 

Ajoute 100 nouvelles instructions 

au Basic LEVEL 2 : tracé de lignes à l'écran, 

manipulations sur les chaînes de 

caractères, calcul matriciel (addition, 

inversion, multiplication}, haute précision 
ans les calculs arithmétiques, etc. 


TK K7 TEE ENPERRETe 535 F TIC 


COMPTABILITE GENERALE CRESUS : 
48 K, 2 Drives 1500 F TIC 





ARE Affichage écran durant 
Ce LASER DEFENSE. 





LIBRAIRIE 
POUR 
TRS-80* 

ET 
VIDEO-GENIE 


MACHINE LANGUAGE DISK 1/0 & 
NOUVEAU 


OTHER MYSTERIES : 
Pour Modèle 1 et Modèle 3. Tout sur 

le contrôle des disquettes en langage 
machine. Lecture/écriture d'une piste, 

d'un secteur, etc... Utilisation des routines 
des DOS, TRS DOS, NEWDOS, LDOS. 
268 pages 345 FTIC 


THE BOOK Vol. 2 : 
Les routines d'entrée/sortie de la ROM 
écran, clavier, cassettes. 


140'pages 2e 155 FTIC 
LE MANUEL D'UTILISATION 
DU DOS : 


Conceme TRS DOS {Tand}) et New-Dos. 
Plus (Apparat), les commandes, 

les utilitaires, etc. 

90 pages en français 


DISK INTERFACING GUIDE : 

La programmation des formatages, 
lectures et écritures sur disquette 

en langage machine, accés disque 

sans utiliser le DOS. Liste des commandes 


du contrôleur de disques, etc. 
55 pages 75 FTIC 


TRS-80 DISK & OTHER MYSTERIES : 
Tout sur les disquettes du TRS-80 : 
architecture du directory, organisation 

des fichiers, comment récupérer des 
données ou des programmes sur disquette 
abîmée, etc. 130 pages .... 205 FTIC 


MICROSOFT BASIC DECODED 

& OTHER MYSTERIES : 

Toutes les routines de la ROM utilisables 
pour programmer en langage machine : 
adresse, contenu des registres, etc. 
Organisation et déroulement d'un 
programme Basic, où il commence, où 

il stocke ses données, etc. 

310 pages 


95 FTIC 


270 FTIC 


MICROSOFT. BASIC 
DECODED 
& OTHER MYSTERIES 


for the THSSO 





|75008 Paris 


Métro : Rome - Place Clichy 


Tél. : 522.70.66 (+). Télex : 280 902 F 


21 bis, rue de Valmy | ® 
| 
OUVERT SANS INTERRUPTION DU LUNDI AU SAMEDI DE 9 H 30 À 18 H 30 (LUNDI 13 H 30 POUR 
ULLE). DETAXE À L'EXPORTATION. VENTE PAR CORRESPONDANCE - CREDIT LEASING CARTE -VISA 


| 31, bd des Batignolles 


59000 Lille 


Tél. : (20) 57.88.43 (+) 
Parking assuré bd de la Liberté 


Parking assuré au 43 bis, bd des Batignolles 





SUBROUTINES : VEAU 
Une collection de routines, simples à utiliser, 
pour votre TRS-80 {mod 1 et mod 3), ou 
votre Vidéo-Génie. Chaque routine est 
expliquée de façon très détaillée avec 
schémas de fonctionnement. Exemples : 

Tri d'un vecteur, lecture/écriture cassetie, 
déplacement d'un point sur l'écran, 
addition et soustraction, lecture/écriture 
disquette, hardcopy écran, etc... 

En tout 65 routines utiles, puissantes et 

frès rapides. 232 pages .... 435 FTIC 


BASIC FASTER AND BETTER 

& OTHER MYSTERIES : 

Enorme recueil de “trucs” de programmation 
de haut niveau : stringpacking, line packing, 
etc. 290 pages 290 F TIC 


TRS-80 ASSEMBLY LANGUAGE __ 
NOUVERZ 





THE CUSTOM TRS 

& OTHER MYSTERIES : 

Tous sur le hardware du TRS-80. 
Nombreux montages pour améliorer | 
votre TRS : haute résolution graphi ve, 
inversion vidéo, PRE CES 
comment faire de la musique, etc. 

330 pages 295 FTIC 


Laris Htamenfelder 

BASIC FASTER 
AND BETTER 

&: OTHER MYSEERIES 





THE ALTERNATE SOURCE Vol. 1 : 
Recueil des meilleurs articles papes 
trucs, etc.) de la revue The Alternate 
Source, spécialisée TRS-80. 

Langage machine, Basic, Basic et 

langage machine mélangés. 

Au sommaire : le BOOTSTRAP, trucs pour 
un système avec un seul drive, 

comment mélanger Basic.et 

langage machine, génération 

de DATA, etc... 

295 pages 


THE ALTERNATE SOURCE Vol. 2 : 
Suite du Vol. 1 : le TRS pocket, 
recherche des nombres premiers, 

trucs sur le NEW DOS-80 générateur 
de cross-références pour programmes 
en Basic, etc. 


370ipages PER rt 230 F TIC 
TRS-80 GRAPHICS FOR 
MODEL 1 and MODEL 3 (Byte Book) : 


Très bel ouvrage abondamment illustré sur 


le graphisme TRS-80/SET et RESET, POKE, 


langage machine, etc. 

290 pages" Ses 175 FTIC 
TRS-80 ASSEMBLY LANGUAGE 
{Prentice-Hall) : 


La programmation en langage machine 


sur TRS-80. 190 pages 145 FTIC 


TRS-80 Interfacing Book 1 : 
Comment faire communiquer le TRS-80 
avec son environnement : convertisseur 


D/A, etc. 190 pages 115 FTIC 
TRS-80 Interfacing Book 2 : 


Encore d'autres circuits d'interface. 
250 pages 115 FTIC 


Je désire recevoir gratuitement le catalogue SIVEA 


(matériels, logiciels, jeux, livres et revues) : 


Nom 


| SIVEA - 31, Bild des Batignolles - 75008 Paris. 
7 BON DE COMMANDE 
Retourner à : SIVEA S.A. - 31, Bd des Batignolles 75008 PARIS 








Prénom 





LES MATERIELS : 


VIDEO-GENIE 
+ Moniteur Vidéo vert 12 pouces 
(ensemble totalement compatible 





IRS-HO)= Eee 3995 E TIC = 
INTERFACE D'EXTENSION EU SSS 
VIDEO-GENIE = 
AVEC 32 K RAM ...... 3500 F TIC 
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CCP joint (a 


Mandat-lettre joint 0 









Contre-Remboursement [ 


FRAIS DE PORT ET D'EMBALLAGE 


Participation port et emballage 
Voir aussi ci-dessous : + 220 F 


Contre-Remboursement : + 30 F 
(France seulement) 
Etranger et DOM-TOM : + 30 F SES 





TOTAL 


Ajouter 220 F pour toute commande comportant, pour tout ou partie, des articles tels 
que : unité centrale, floppy-disk, imprimante, moniteur vidéo, papier pour imprimante. 
Transport par service express avec assurance comprise (Corse, DOM-TOM, étranger, 
nous consulter par téléphone ou courrier en ce cas). 
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,  SUPERSOFT pour 


$ 1% 
* TRS-80 + 


GRAF transforme votre impri- 
mante LINEPRINTER VI en 
table à dessin de 
65536 points. GRAF fonc- 
tionne en ajoutant des com- 
mandes au BASIC DISK. Sim- 
ple à utiliser, performant. 
Utile pour tracer des courbes, 
faire du graphisme. 

MOD I DISK 


GESTCO gère un compte ban- 
Caire personnel 1000 à 
2000 Mvts. Calcul du solde. 
Liste écran, imprimante. TRI 
sur code ou libellé. 

MOD | DISK 


ZLIST structure vos program- 
mes avant la sortie écran ou 
imprimante, sans modifier 
l'espace mémoire.  ZLIST 
espace chaque mot clés, 
idente les FOR-NEXT, IF ELSE. 
Très utile pour la mise au point 
de vos programmes. 

MOD I K7, DISK .... 199F 


UTILDIR mémorise à votre 
place le contenu de 80 dis- 
quettes. Ne cherchez plus un 
programme. UTILDIR sait où il 
se trouve. 

MOD | DISK 


GESTION de stocks. GESTION comptes clients pour Modèle I, 
I, 111, de 1000 à 2000 fiches. Standard ou sur mesure. Nous 
consulter. 

* Trademark of Tandy C° 


Retourner à : M. H. POSSARD - TABANAC - 33550 LANGOIRAN 
& (56) 67.29.61 
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Cette augmentation de mémoire 
permet à ce pocket des program- 
mes plus musclés. 


Entièrement compatible avec 
l'imprimante et l'interface K 7. 


Extension intégrée dans le boîtier. 
Modif. physique par nos soins 
exclusivement. 


Garantie 1 an. Reprise des 
garanties en cours. 


DETAILS COMPLEMENTAIRES 
APPORTES PAR LA MODIF. 


possibilités fichiers nettement améliorées, 
overlays plus importants. 

traitements optimisés beaucoup plus 
rapides 

utilisation possible de 2 magnétophones 
simultanés sans modification complé- 
mentaire. 
























alimentation : piles / secteur / accus ou 
batterie auto. 

affichage et impression programmable 
(réglage du contraste). 

manuel d'utilisation en français, largement 
documenté. 

systèmes d'entrées/sorties universels : 
connection vidéo, modem, carte secteur 
et mini synthétiseur 

retour de votre PC 1211 en Rec par 
nos soins. 
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Faites parvenir votre PC 1211 seul, avec votre règlement … 
de 1500 F TTC en chèque lpas d'envoi contre remboursement) à : 


3 eoulisoft . 


« INTERFACES » see 
NOM : 
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Les graphiques sur TRS-80 bute parles notions élémentaires 
par Don Inman de tracés de ligne puis aborde 
traduit par Alain Pinaud ies dessins géométriques pour 
/PSN\ Dans ce livre, l'auteur déboucher sur l'animation de 
li. -/ montrecomment,avec dessin etautres applications plus 
une connaissance minimale du Complexes. 


ë Basic et du TRS-80, visualiser 
E—-] 
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T.GT.12 Envoyer ce bon accompagné de votre règlement à EDITIONS DU P.S.IL. ou à PS.L BENELUX 











Je désire recevoir ____ exemplaires du volume 
= LES GRAPHIQUES SUR TRS 80 au prix unitaire de 82,00 FF 
Æ (630,00 FB) taxes, port et emballage compris (par avion : 
7 ajouter 8 FF (75 FB) par livre). 

À see RTS DE 
NOM ___ PRENOM 
Editions du P.S.I. P.S.I. BENELUX 
41-51, rue Jacquard 5, avenue de la Ferme Rose rue — —— +, 
BP 86 - 77400 Lagny-s/Mame 1180 Bruxelles 
Téléphone (6) 007.59.31 Téléphone (2)345.08.50 Code post. L_1 1 L 1 J Ville 








Nous avons reçu quelques lettres dans lesquelles les 
lecteurs nous disent “le programme de la fusée pé- 


dagogique ne fonctionne pas"... ou bien : " - donnez 
nous les modifications concernant le programme de 
gestion des articles"... Compte tenu du fait qu'une 


double erreur est toujours possible et jusqu'à preu- 
ve du contraire, notre position actuelle est la sui- 
vante : la liste des programmes publiés est directe- 
ment issue d'une imprimante reliée à un TRS80 modèle 
1, 48K de mémoire, deux doubles disquettes. 

Les programmes suspects ont été essayés et re-essayés 
par différentes personnes et ne présentent aucune des 
anomalies décrites (ce n'est pas pour vous faire de 
la peine, mais c'est strictement exact !). Ce que 
nous savons par contre, c'est que le Vidéo Génie pré- 
sente des réactions légèrement différentes quant à 
l'affichage (mode 32 caractères par ligne notamment). 
Naturellement, nous ne doutons pas de votre bonne foi, 
mais rappelez-vous toujours que dans un programme, 

la moindre virgule ou le moindre point virgule a son 
importance... N'oubliez pas d'utiliser le contrôle 

de checksum décrit dans le numéro 2 de TRACE. Ceux 
qui possèdent des unités de disques peuvent également 
se procurer la disquette TRACE regroupant les program- 
mes des numéros 1 et 2. Essayez aussi d'être compré- 
hensifs - nous ne lisons pas (encore) dans les boules 
de cristal ! - et plutôt que de nous dire "tel pro- 
gramme ne fonctionne pas...", donnez-nous un diagnos- 
tic le plus précis possible ! Merci. Mais avant tout... 


Des excuses ! 


* Sur certains numéros .3 de TRACE, les pages 16 et 

17 sont inversées et même parfois - nous signale-t- 
on - à l'envers ! Ainsi sur la plage, il est plus fa- 
cile de lire à deux... Ah les vacances ! 


* Dans l'article de Frédéric Mora, page 38 colonne 
de droite, la ligne 100 doit se lire : 


100 DATA 178, 183, 144, 26, 24, 24, 24 152, 137, 144 


Pour tous les goûts... 


- Par rapport aux réactions d'autres lecteurs, ne 
donnez pas trop de programmes "sérieux pour la ges- 
tion général" (je trouve que c'est souvent "rasoir"... 
mais je ne suis pas trop sectaire !). De bons jeux, 
c'est tout aussi bien. 
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Quant à da périodieité de 12 revue, je ne pense pas 
qu'une parution mensuelle soit souhaitable : un mois, 
c'est souvent bien court pour profiter d'articles in- 


teressants. (G. Grandpierre) 


* C'est bien vrai ça ! Voilà qui amène de l'eau à 
notre moulin... Comme nous le disions déjà, ce sont 
les lecteurs qui font la revue : les articles que 
nous recevrons, s'ils sont dignes d'intérêts, seront 
publiés qu'ils soient "sérieux" on non. Et si nous 
en recevons beaucoup, peut-être qu'un jour... 


Avis de recherche... 


- Connaissez-vous de vrais programmes de communica- 
tion qui permettent de dialoguer avec d'autres ordi- 
nateurs que les TRS et qui effectuent la numérotation 
automatique, la sauvegarde sur disquette de ce qui 
est reçu de la ligne, le décrochage automatique... 

Ce genre de programme existe pour Apple ! 

(J.M. Ziegler) 


* En France ou aux Etats-Unis ? Qui connaît cette 
petite merveille ? 


Question d'emballage... 


- Comment faire voyager une disquette par la poste 
pour qu'elle n'arrive pas en miettes ou effacée 7? 
Quel est l'emballage à trouver ? (M. Brem, Paris) 


* La disquette étant relativement souple, il suffit 
en principe (à moins que le facteur ne passe sous un 
50 tonnes), de l'entourer d'un carton rigide (mainte- 
nu par un ruban adhésif pour l'empêcher de glisser) 
ou de la placer dans un document si ce dernier at- 
teint 5 à .10 millimètres d'épaisseur. Pour ce qui est 
de l'effacement et bien que le problème ne se soit ja- 
mais posé en ce qui nous concerne, la disquette pour- 
ra être entourée d'un papier métallisé. On trouve aux 
Etats-Unis un emballage ‘spécial disquette" léger et 
très rigide, étudié pour ce genre de voyages... Qui 
nous fera la surprise de nous apprendre que l'on en 
trouve aussi en France ? 


Mais de quel modèle s'agit-il ? 


- Un programme pour modèle 1 ne marche pas forcément 
pour modèle 3, exemple "Trace pas-à-pas en BASIC", 
ne serait-ce qu'à cause du OUT OF8H au lieu de LD A, 
(37E8H) et LD (37E8H),A. Le modèle 3 se répand de 
plus en plus et il serait temps de préciser systéma- 
tiquement dans les articles de quel modèle il s'agit 
... (L: Martin, Modane) 


* D'accord, nous prenons bonne note et tâcherons d'y 
veiller à l'avenir (et pourquoi ne pas commencer tout 
de suite ?). De plus nous nous efforcerons au travers 
d'articles, de donner au lecteur le maximum d'éléments 
pour qu'il puisse transposer facilement sur sa confi- 
guration un programme écrit sur une configuration 
différentes, comme par exemple (TRACE numéro 2) l'ar- 
ticle de J.L. Berardo sur les différences entre mo- 
dèles 1 et 3). Par contre, nous ne pouvons publier 
systématiquement les corrections à apporter pour cha- 
que cas particulier (modèles 1 et 3, Vidéo Génie, 
LNW, poquette, version cassette, disquette, etc...) 

à moins bien sûr, que vous ne souhaitiez voir votre 
revue préférée devenir semestrielle ! 


Pas de Pascal en France ?? 


- J'ai lu avec beaucoup d'intérêt votre article sur 
le Pascal UCSD mais je n'arrive pas à me procurer - 
ce logiciel auprès. des revendeurs français, même ceux 
qui en font la publicité dans votre numéro 1... Quel 
est le nom et l'adresse du producteur ? Certains qua- 
lifient ce produit "d'exotique". Que faut-il entendre 
par là ? Fonctionne-t-il vraiment sur le TRS80, mo- 
dèle 1 ? (P. Dupin, Montpellier) 


* Ce logiciel conçu à l'université de San Diego en 
Californie, a été adapté au TRS80 et est vendu aux 
Etats-Unis par FMG Corporation, P.0. Box 16020 Fort 
Worth, Texas 76133, société à laquelle vous pouvez 
vous adresser en cas d'insuccès. Mais tout n'est pas 
perdu: les revendeurs qui nous lisent et ont ce pro- 
duit en stock seraient sympathiques s'ils nous le 
faisaient savoir... La qualification d'exotique de 
ce logiciel est probablement due au fait qu'il est 
implanté à partir de l'adresse 1000H et qu'il reste 
peu de mémoire disponible à l'utilisateur pour ses 


propres programmes (n'oublions pas que la ROM BASIC 
occupe 12K qui sont pratiquement inutilisés en Pas- 
cal). Par contre, nous pouvons vous assurer que ce 
logiciel tourne parfaitement sur le modèle 1, et 
qu'il constitue un bon outil pédagogique pour celui 
qui veut se familiariser avec ce langage. 


Les minuscules en standard ? Comme c'est bizarre ! 


- Je suis possesseur d'un modèle.1 acheté en mars 82 
et j'ai remarqué que les caractères minuscules étai- 
ent affichables à l'écran en "pokant'! leurs codes 
ASCII dans la mémoire d'écran... 

(M. Maillet, Villeneuve d'Ascq) 


* Très interessant ! Nous avons effectivement appris 
peu après votre lettre, que Tandy avait modifié (tou- 
jours dans le plus grand secret !) le circuit impri- 
mé du modèle 1 en commençant par remplacer les 7 mé- 
moires 2102 (7 fois IK bits) par 2 mémoires 2114 (2 
fois 1/2K octets). Cette économie produit un "effet 
de bord" très appréciable puisque la mémoire vidéo 
se trouve par la même occasion dotée d'un huitième 
bit l'autorisant cette fois à afficher les minuscu- 
les en standard. Il y aura-t-il d'autres découvertes 
à faire ? 


Précisions... 


- Comment est interprété le "SET (X OR Y,Y)" de la 
derniere ligne 10 en page 26 du numéro 2 de TRACE, 
et surtout pourquoi ? 


Que signifient FPA1 et RFPA (page 46, même numéro) 
dans l'article "différences entre modèles 1 et 3" ? 
(L. Martin, Modane) - 


* Un "point" graphique est déterminé par ses coor- 
données X et Y. Dans le cas de la ligne ci-dessus, 
la coordonnée X sera le résultat obtenu par le OU 
logique (OR en anglais) entre X et Y (X OR Y), et 

la coordonnée Y est conservée telle quelle. Pour- 
quoi ? Hum. Eh bien... le hasard fait souvent si 
bien les choses, et les choses les plus courtes sont 
souvent les plus longues à expliquer. 

FPA1 désigne une zone mémoire de 8 octets utilisée 
comme accumulateur pour contenir les nombres flot- 


tants. En modèle 1, elle est située à partir de 411DH. 


RFPA quant à lui, désigne la double paire de regis- 


tres BC et DE du microprocesseur. Pour plus de ren- 
seignements, se référer au livre cité dans l'article 
ainsi qu'à "Microsoft BASIC decoded" dont ii est ega— 
lement question dans le même numéro de TRACE. 


... et imprécisions ! 


- Vous signalez que CLEAR annule DEFINT. J'ai éga- 
lement constaté que DEFINT annule DIM. Je crois que 
cela ne figure pas dans le manuel. D'autre part, en 
enregistrements de longueur variable avec TRSDOS, je 
ne peux fixer explicitement la longueur a 256 octets 
dans un OPEN. Bizarre, non ? (J. Weill, Veigne) 


* Prenons le problème à l'envers : cela ne semble-t- 
il pas logique de définir d'abord le type d'une va- 
riable avant de la dimensionner ? En réalité, votre 
DEFINT n'a pas annulé votre DIM. Une preuve 


10 DIM A (100) 
20 DEFINT A 
30 A(90)=1234 


Un RUN donne effectivement "BS ERROR IN 30" et c'est 
normal, car en fait, A(90) ne concerne plus le ta- 
bleau défini en ligne 10 (tableau simple précision) 
mais le tableau que nous avons défini ENTIER en li- 
gne 20 et qui, lui, n'a pas été dimensionné. Il suf- 
fit de remplacer A(90) par.A!(90) pour s'apercevoir 
que le DIM n'a pas été annulé. On peut aussi rempla- 
cer A(100) par A%(100) en ligne 10 pour obtenir le 
même effet. Vicieux, hein ? 


Votre second problèüe s'explique par le fait (non 
documenté, hélas !) que la longueur des enregistre- 
ments est probablement définie en mémoire sur un seul 
octet (valeurs 0 à 255), et la valeur 256 est donc 
refusée car elle nécessiterait deux octets. En ce 

qui concerne la valeur 0 (qui est absurde dans un tel 
cas), elle est souvent considérée en informatique, 
comme la valeur 256... Ainsi, dans la commande OPEN, 
il suffit d'omettre le paramètre de longueur ou de 
lui donner la valeur zéro qui elle, est acceptée ! 


Modifications matérielles 


- Sur le modèle 1, est-il possible de remplacer avan- 
tageusement le Z80 d'origine par un Z80A ou Z80B ? 
Y-a-t-il des modifications autres à apporter dans ce 
cas ? Peut-on améliorer le CLOAD du cassettophone sur 
les anciens modèles 1 (difficultés pour trouver le 
volume correct) ? (J. Langlet) 


* Remplacer le Z80 d'origine par un modèle A ou B 
n'apportera aucune amélioration dans les performan- 
ces si vous ne modifiez pas également la fréquence 
d'horloge qui pilote le microprocesseur. Les Z80A et 
B sont dits "rapides" car ils peuvent accepter des 
fréquences d'horloge plus importantes que le modèle 
courant. Il existe différents moyens d'augmenter la 
fréquence d'horloge (tout en respectant aussi son 
"facteur de forme") mais, au delà d'une certaine va- 
leur, des problèmes d'accès aux mémoires peuvent sur- 
venir si celles-ci ne sont pas suffisamment rapides 
(comme pour le microprocesseur, il y en a de diffé- 
rentes catégories). Dans tous les cas, et compte tenu 
des différents modèles de TRS et de châssis d'expan- 
sion, cela demande une bonne dose de courage et de 
persévérance pour franchir sans problèmes le cap des 
2,66 Mhz (gain de 50 %) ! 

La meilleure solution à notre avis, pour améliorer 
les problèmes de lecture cassette est de se procurer 
le Kit Tandy qui est d'une installation facile et qui 
donne des résultats très convenables. 


REP 
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fo 
80. Les premiers produits annoncés 

0 (nouvelle implémentation du langage 
DOSPLUS (un nouveau système d'ex- 

tion de disquettes) ; 80-GRAFIX+ (un générateur 

caractères programmables donnant une résolu- 

graphique virtuelle de 384 x 192 (modèle 1) ou 

x 192 (modèle 3) ; GRAFYX SOLUTION (carte haute 


Un catalogue de vente par correspondance est en cours 
de préparation et l'ouverture d'une boutique à Paris 
est en projet. 


(IDEM, 34 bis rue Sorbier, 75020 PARIS) 





Tandy qui a annoncé au Sicob la disponibilité du mo- 
dèle 16 en France pour la fin septembre vient de re- 
pousser la livraison de la version multi-utilisateurs 
à janvier 83. Le logiciel de base de cette configu- 
ration, dérivé du système d'exploitation Unix, sera 
Fourni par Charles Rivers Data System. Rappelons que 
la version de base de cet ordinateur (avec 1 disquet- 
te 8 pouces) est de l'ordre de 45000 F TTC. Les prin- 
cipales caractéristiques sont : processeur central 

16 bits 68000 (Motorola) et processeur "périphérique" 
ZB0 ; compatibilité logicielle avec le modèle 2 
mémoire centrale jusqu'à 512 K octets ; capacité mul- 
ti-postes pour un accès simultané et indépendant de 
trois utilisateurs ; possibilité de communication 
(deux interfaces sérielles RS232) directe avec de 
"gros ordinateurs" ou en réseau local (système ARCNET 
pouvant regrouper un maximum de 255 systèmes). 


(Tandy France, 211-213 bd Mac Donald, 75019 PARIS) 





Encore un "compatible" TRS80 modèle 1‘qui est com- 
mercialisé pàr la firme américaine Lobo Drives Inter- 
national : il s'agit du Lobo MAX-80. Ce système de 
très faible encombrement (8 x 46 x 25 em) est équipé 
d'un microprocesseur Z80 rapide (5 Mhz) et possède 

en standard 64 "vrais" kilo-octets de mémoire-vive, 
deux interfaces sérielles RS232 et une interface pa- 
rallèle Centronics. L'écran peut contenir 24 lignes 
de 80 caractères mais une commande logicielle permet 
d'accéder au "mode TRS" de 16 lignes de 64 caractè- 
res (ou 16 de 32). Les 128 caractères ASCII et les 

64 codes graphiques résident en mémoire vive et peu- 
vent être redéfinis. Une carte optionnelle "haute 
résolution" est également prévue (150 $). Le clavier 
est muni de 76 touches (dont pavé numérique et 4 tou- 
ches de fonctions). MAX-80 contient bien sur une hor- 
loge temps réel mais dont l'heure est maintenue par 
une batterie rechargeable. Et ce n'est pas tout ! 

Le système est aussi capable sans apport extérieur, 
de piloter des disquettes 5 et/ou 8 pouces, simple 

ou double face, simple ou double intensité, ainsi 

que des disques Winchester. Côté logiciel, nous trou- 
vons bien entendu le fameux LDOS (dont Lobo est l'i- 
nitiateur) mais aussi CP/M. Selon le constructeur, 
les logiciels déjà développés sous TRSDOS ou CP/M 
sont reconductibles sans conversion de format. En 
conclusion, un produit à surveiller de très près, 
d'autant plus que son prix (800 $ sans moniteur vi- 
déo) lui donne une très bonne place sur le marché. 

À quand sa venue en France ? 
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(Lobo Drives International, 358 S. Fairview Ave, 


Goleta CA 93117, USA) 





Pentasonic commercialise un ordinateur en kit très 
interessant pour ceux qui veulent construire eux- 
mêmes petit à petit et à moindre frais leur ordina- 
teur : il s'agit du PROF-80. Le circuit imprimé nu 
d'un excellent aspect, est vendu 647 F TIC avec les 
plans de montage (précisons toutefois que la docu- 
mentation est très "technique" et s'adresse à un pu- 
blic compétent en la matière). Cette carte contient 
un interpréteur BASIC Microsoft et peut accepter jus- 
qu'à 64 K octets de mémoire vive (le premier bloc 

de 16K pouvant recouvrir la mémoire morte pour des 
applications CP/M par exemple). La vitesse de l'hor- 
loge CPU peut être commandée par programme (de 1,8 

à 4 Mhz). Deux sorties vidéo sont prévues pour un 
moniteur à vidéo composite ou à signaux de synchro- 
nisation séparés. Les interfaces cassettophone, Cen- 
tronics (parallèle) et série (RS232) sont également 
présentes ainsi qu'un couplage de une à quatre unités 
de minidisquettes. La conception de ce systeme d'ori- 
gine française, est telle que celui-ci peut accepter 
directement les logiciels standards développés sur 
TRS80 modèle 1, Vidéo-Génie ou LNW (cassette ou dis- 
quette). Un circuit imprimé de clavier est disponi- 
ble auprès de cette société qui peut aussi fournir 
tout ou partie des composants nécessaires à cette 
réalisation (alimentation, coffret, etc...) Les ex- 
tensions prévues sont la carte CP/M, le doubleur de 
densité (PERCOM, déjà commercialisé) et la carte hau- 
te résolution couleur. Cette dernière que nous atten- 
dons avec impatience (...!) serait un ensemble auto- 
nome qu'il serait également possible de raccorder 

sur le bus du TRS80 et qui pourrait attaquer soit le 
moniteur standard (noir et blanc avec teintes degris) 
soit un récepteur couleur muni de la prise Péritel. 
Voilà qui transformerait singulièrement notre bonne 
Thérèse ! 


(Penta 16, 5 rue Maurice Bourdet, 75016 PARIS) 





SIVEA vient d'éditer un nouveau catalogue de ses pro- 
duits (82/83) qui, en 36 pages, ne comporte pas moins 
de cinq cent références... et couvre les domaines 
suivants : micro-ordinateurs (Apple, Vidéo-Génie, 
Xéros 820, VIC 20, Osborne, Sinclair), périphériques 
(imprimantes, tables traçantes, interfaces...), lo- 
giciels "pour programmer", ‘pour travailler" ou "pour 
se détendre", livres et revues. Clair et bien illus- 
tré, il est disponible gratuitement sur simple de- 
mande . 


(SIVEA Informatique, 31 bd des Batignolles, 75008 


PARIS) 





Dans notre dernier numéro, nous écrivions que Tandy 
diminue la commercialisation pour ses franchisés au 
profit de ses propres boutiques. Ceci ne signifie 
nullement, ainsi que notre phrase le laisse entendre 
à tort, que des contrats de franchise vont être rom- 
pus par Tandy. Nous voulions dire que Tandy ouvre 
beaucoup plus de magasins ‘de la compagnie", que de 
boutiques franchisées. La part respective des uns et 
des autres dans le chiffre d'affaires total va donc 
s'en trouver modifiée. 


CRERLLELLLELLELELLLZX) 





Nous avons pensé que vous seriez désireux de connaî- 
tre l'existence de quelques clubs de micro-informa- 
tique, ainsi que leurs activités. Cette rubrique leur 
est consacrée. Les clubs : écrivez-nous et faites- 
nous part aussi de vos réalisations ! 


Correspondants Spirou, 30 rue Janson, 1050 Bruxelles 
En France : BP 10, 78240 Chambourcy 





La 'BD' s'intéresse aussi à l'informatique ! Le club 
Spirou vous en parle et la met à votre portée... et 
il le prouve : trois correspondants ont gagné chacun 
un TRS80 et deux cents autres ont suivi une formation 
à l'informatique chez Tandy. 


Maison des loisirs et de la culture (MLC) 
9 route de St Germain 


78860 St Nom la Breteche 
(tél. O45 54 65) 





MATERIEL : TRS80 16k et micro-ordinateur monté en 
LICE 

BUT : amener ceux qui s'y intéressent à apprendre à 
se servir d'un tel matériel ; pour certains, à con- 
naître de plus près le matériel, son fonctionnement 
et toucher par ailleurs l'électronique et les cir- 
cuits logiques. 


ACTIVITES : En 1980, construction matérielle et pro- 
grammation sur ZX80 et TRS80. En 1981, initiation 
plus poussée du BASIC sur TRS80. En 1982, initiation 
et approfondissement du BASIC ; analyse des program- 
mes ; apport probable d'un micro spécialisé dans les 
jeux. 


LIAISONS avec d'autres clubs : MJC de St Germain 
(TRS80 et imprimante) ; Club MICROBUS (micro-infor- 
matique scolaire de St Germain en Laye) (ZX81). 





CIM (Club informatique de Mons) 
Secrétaire : Henry-Noël Perrin 
101 chaussée de Binche 

7000 MONS (Belgique) 

(tél. après 18H : 065/33.71.45) 











Ce club s'adresse principalement aux utilisateurs de 

TRS80, mais tout possesseur de système quelqu'ilsoit, 
et de n'importe quel niveau, est le bienvenu. Le club 
dispose de 800 programmes et des cours seront donnés 

ainsi que des échanges d'idées. 


MICRO-G.D.V. 
Secrétaire : André Brixhe 


54 rue de l'Eglise 
B-4710 HERBESTHAL (Belgique) 
(tél. 087/88.04.15) 





Ce club de micro-informatique belge (section infor- 
matique du groupe des radio-amateurs de Verviers et 
environs) est le plus important de Wallonie. Il pos- 
sède une grosse programmathèque (près de 1000 pro- 

grammes) et presque 300 membres dont quelques "amis 


français". Il publie un périodique mensuel servant 
d'organe de liaison entre les membres du club et or- 
ganise des conférences. Certains montages pratiques 
ont déjà été expérimentés : interface sonore avec 
possibilités de synthèse vocale, le BUS MICRO-GDV 

qui est une tentative de doter les différents ordina- 
teurs des membres du club d'une structure commune 
d'entrée/sortie... A l'étude : carte RS-232 et MODEM 
économique, réseau "MICRO-NET-GDV" (liaison TRS-Apple) 
échanges par radio... 


Le stand TANDY vient enfin de nous présenter offi- 
ciellement (pour la France), son second poquette, le 
PC2. Ses caractéristiques (à part un clavier diffé- 
rent et un décalage de l'affichage) sont totalement 
similaires à celles du PC-1500 de SHARP ; ceci met 
donc fin aux rumeurs du TRACE n° 2. 


Le sosie de l'imprimante CE-150 est aussi présenté 
par TANDY ce qui présage une compatibilité totale 
entre les 2 machines. 


Cependant TANDY commercialise une extension du PC2 
(PC-1500) qui n'existe pas (encore ?) chez SHARP 

un module de mémoire MEV 16k. Il porte donc la capa- 
cité de la machine à 17,5k ce qui autorise quantité 
d'applications. 


Encore plus intéressante est la commercialisation 
par SHARP, dès la fin de l'année, d'une interface 

RS 232C/imprimante : elle permet la connexion à tou- 
tes les imprimantes de la gamme SHARP (interface im- 
primante) en 80 ou 132 col. et à une table traçante, 
autres imprimantes, etc... (interface RS232C). Son 
prix sera aux alentours des 2500 F TIC. 


Informations venant directement du stand SHARP 
l'interface vidéo (eh oui !) est en préparation ; la 
commercialisation du CE-153 (clavier sensitif 140 
touches séparé) n'est plus qu'une question de semai- 
nes ; ET MALHEUREUSEMENT, SHARP ne publiera pas de 
descriptif du microprocesseur de son poquette. Ce 
sera donc à l'utilisateur de se débrouiller pour con- 
naître l'assembleur de sa machine ! Et pourtant, Mes- 
sieurs de chez SHARP, vous avez tort car les adeptes 
du langage machine sont (très) nombreux... 


RUMEURS plus ou moins précises 


a) Il sera possible, par commutation électronique 
(simplement un POKE) de "remplacer" les 16k de ROM 
BASIC par un autre langage dans un module de 16k ROM 

.. affaire à suivre ! 


b) il sera possible toujours par des simples POKE's 
de modifier le clavier (petite note pour les amateurs 
de clavier AZERTY...). Et de redéfinir les caractères 
de la machine et de l'imprimante (ex : minuscules 
accentuées, ç, symboles mathématiques, alphabet étran- 
ger, etc...).* 


c) et des périphériques, encore des périphériques, 
toujours des périphériques ! 


* Et nous sommes si rapides à TRACE... que nous vous 
en donnons déjà le moyen dans ce même numéro ! 


ARR 
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essai matériel 





Lors d'une visite de courtoisie dans un "Computer 
Center" Tandy, j'ai découvert une imprimante graphi- 
que qui pour moins de 2000 F, pouvait écrire en 4 
couleurs et qui avait en sus des fonctionalités de 
"table traçante". Vous connaissez mieux ? 


En regardant de plus près, je me suis aperçu que sans 
être identique elle avait beaucoup de points communs 
avec l'imprimante 4 couleurs du poquette PC-2. 
C'était en effet la même tête d'écriture interchan- 
geable munie d'un barillet de 4 pointes "bille" noi- 
re, bleue, verte et rouge. La durée de vie d'une poin- 
te est mesurée en longueur d'écriture, et celle de 
cette imprimante est donnée pour 250 mètres. Le pa- 
pier qui est livré en rouleau de 115 mm de large sur 
55 mètres de long, fait une largeur double de celui 
du poquette. L'imprimante est très légère : seulement 
800 grammes . 


La CGP-115 ou Color Graphic Printer (référence Tandy : 
26-1192) était déjà annoncée dans le numéro 3 de TRA- 
CE, avec un prix de vente estimé à 250 $ (1700 F TTC). 
Comme le dollar augmente constamment, la suite ne 
s'est pas faite attendre ! Lorsque je j'ai commandée, 
elle coûtait déjà 1995 Francs et quand cet article 
paraîtra, elle aura peut-être changé de prix. Elle 
peut se connecter soit en mode parallèle (7 bits) 
soit en mode série (RS-232 C) sur tous les modèles 

de la gamme des micro-ordinateurs Tandy, c'est-à- 
dire : les modèles 1, 2, 3, 16, le modèle couleur et 
même le terminal DT-1. 


La CGP-115 étant arrivée au magasin dans la matinée, 
j'ai eu l'autorisation d'effectuer des essais durant 
l'après-midi pour en faire une évaluation. Il faut 
croire qu'ils furent concluants puisque je me retrou- 
vai-quelques instants plus tard, carnet de chèques 

en main pour passer la commande ! Au moment où j'é- 
cris cet article, je viens d'apprendre que cette im- 
primante avait été exposée au SICOB mais seulement 
durant la deuxième semaine. Par contre, la mienne 
n'est toujours pas arrivée, mais j'ai bon espoir ! 


Même non-raccordée, l'imprimante est capable de dé- 
montrer ce qu'elle sait faire : il suffit de lancer 
les tests internes qui écrivent les 96 caractères en 
} couleurs. Par la suite, j'ai continué mon évalua- 
tion en liaison avec un modèle 3. Pour communiquer 
avec la CGP-115, on utilise l'ordre "LPRINT" sauf 
dans le cas du TRS couleur qui emploie la syntaxe 
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LE LS 
PLIS 
RS 
L£ 
LT 
4 ex 


ES 
ES 


D 


= 


<S 


CSS 
ESS 


LAS 
LL ee 
SES 


RE 


"PRINT —2". Les commandes d'impression sont de la 
forme "LPRINT CHR#(XX)" où xx peut prendre les va- 
leurs 8 , 11 , 17 , 18 et 29. Leurs significations 
respectives sont : recul d'un caractère, recul d'une 
ligne, sélection du mode texte, sélection du mode 
graphique, changement de couleur en mode texte. La 
tête d'impression se déplace, sur 96 mm (3.804 in- 
ches), suivant l'axe des "X". Celui-ci est divisé en 
480 parties égales. La résolution est donc de 0,2 mm 
par pas. Pour l'axe des "Y", il y a un maximum de 
999 pas par commande. Quand l'imprimante est en mode 
graphique, la vitesse de traçage est de 52 mm/s ho- 
rizontalement et de 73 mm/s verticalement. 





La CGP-115 accepte aussi les ordres de changement de 
couleur par LPRINT "Cx" (4 couleurs), de taille de 
caractère par LPRINT "Snn" (64 tailles), de direction 
par LPRINT "Qx" (4 directions), de qualité de trait 
par LPRINT "Lx" (16 tracés du trait plein au trait 
interrrompu). Il est également possible de tracer un 
axe gradué : LPRINT "Xx,y,z", d'imprimer du texte en 
mode graphique : LPRINT "P texte ", de créer une nou- 
velle origine : LPRINT "I", de revenir à celle-ci 
sans tracé : LPRINT "H", de tracer une droite entre 

2 points soit en absolu : LPRINT D';x";y soit en re- 
latif : LPRINT "Jx,y", de déplacer la pointe à un 
point absolu : LPRINT "Mx,y", ou relatif : LPRINT 
Rx, vit ; 


En mode normal (taille 1) elle permet d'imprimer un 
texte de 40 caractères par ligne à la vitesse de 12 
caractères par seconde (dixit Tandy). On peut aussi 
imprimer 80 caractères par ligne mais avec la con- 
trainte de passer en mode graphique pour positionner 
l'imprimante en taille 0. Cet ordre ne figure pas 
dans la documentation, mais on peut le trouver dans 
un exemple d'application : en faisant la commande 





Suivante, on obtient le passage en 80 caractères par 
ligne : (LPRINT CHRg( 18) LPRINT "SO" LPRINT "A"). 


L'imprimante possède toutefois un inverseur à l'ar- 
rière qui permet d'imprimer soit 40, soit 80 carac- 
tères par ligne. 






TAILLE : 9 








TOLLRE E 
TÉLÉS TRACE 
| D 
& 
és sens ee T 39u81 


ANSE es 


RÉ 
de M een 


PALERE 





Lorsque la machine fonctionne, on est surpris par 
les mouvements frénétiques du papier. En effet comme 
la tête ne peut se déplacer qu'en translation, c'est 
le papier qui monte et qui descend. En exécutant la 
commande "Q1" ou "Q3" (écriture parallèle au bord du 
papier), on n'est théoriquement pas limité par la 
longueur du papier, quand il en reste ! 


Cette imprimante peut s'utiliser avec "SCRIPSIT" 

Sans difficulté, d'ailleurs cet article a été à l'o- 
rigine, frappé de cette façon. Pour les possesseurs 

Se l'interface RS-232 et d'une imprimante parallèle, 
12 CGP-115 peut être connectée comme seconde impri- 
ænte. En effet le programme "SCRIPSIT" supporte les 
deux types de connexions sans risque de conflit. 

En conclusion, on peut dire que ce modèle d'impri- 
æante présente un excellent rapport qualité/prix et 

Æ pense qu'elle rencontrera un vif succès même au- 
Br£s de ceux qui ne possèdent pas forcémment un Tandy. 
= seul reproche que je fais concerne seulement la 
Socumentation - américaine évidemment - qui est "bour- 
m==7 de fautes syntaxiques et typographiques et qui 





a de nombreuses omissions. Dans le manuel de l'uti- 
lisateur fourni avec l'imprimante, j'ai relevé de 
nombreuses erreurs dans les exemples d'applications 
(le programme de la page 39 et suivantes n'en compor- 
te pas moins de 4 !) 


340 REMXX#+*##+0INUS ET COSINUSX#NENXESEERXEXEEEXS 
350 LPRINT"------- COURBES SINUS ET COSINUS------- se 
360 LPRINTCHR$#(18) 3; "RO>-150240:0" 

370 LPRINT‘I" 

380 LPRINT'"X1:-20;10" 

390 LPRINT“HX120;10* 

400 LPFRINT'HXD:16;5" 

410 LPRINT'HXOr-16:5" 

#20 LPRINT"CO":LPRINT*LO" 

430 B=30:H=15:C=0:GGSUBS50 

440 LPRINT"C1":LPRINT"L3" 

450 B=-100:H=80:C=0:GOSUB5S0O 

#60 LPRINT” 3LPRINT'LS”" 

470 B=100:H=280:C=1:GOSUBSSO 

#80 LPRINT"'C3":LPRINT"LO* 

490 B=100:H=80:C=0:GOSUESSO 

900 LPRINT"MO:-150":LPRINT"CO” 








310 LPRINT'A":LPRINT "= Fibre “ 
2320 LPRINT:LPRINT 

530 END 

SS0 REMEXX%##DESSIN SIN-COSx+####x 
560 A$="M" 


570 FORI=-200T02008TEP4 

380 S=1/B#3.14159 

590 IF C=OTHENY=INTISIN(S)xH) 
600 IFC=1THENY=INT(COS(5)#H) 
610 LPRINTAS:1:3";":Y:0$="D" 
620 NEXTI 

630 RETURN 


Dans sa catégorie, avèc 4 couleurs et ayant de plus 
des fonctionnalités de table traçante, elle devrait 
révolutionner à sa façon le monde des imprimantes. 
Sa venue sur le marché européen a fait un effet de 
surprise... et le père Noël risque d'en avoir plein 
la hotte ! Heureusement pour lui, elle ne fait que 
800 grammes ! 


Re 


SK 


RS D 
LS 
IN 27 
SE 


EE TITA) 


TRS 


Pas 
RS 


a. -Christian Kraemer 


NDLR : Depuis l'écriture de cet article, l'auteur a 
reéçu son imprimante et en est très satisfait. 
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essai logiciel 





Le compilateur FORTRAN 
de Microsoft 





Bien que le FORTRAN soit un des tous premiers langa- 
ges de programmation (1956), il n'est pas démodé et 
est encore couramment utilisé sur les "gros" ordina- 
teurs pour le traitement des problèmes scientifiques 
et techniques. Pour les débutants, son apprentissage 
est plus long et plus délicat que le BASIC, mais lors- 
qu'on a bien compris les principes du BASIC, l'étude 
du FORTRAN est beaucoup plus facile. 


LE TRS80 - modèle I (ou III) peut travailler en Pas- 
cal, APL... et aussi en FORTRAN au moyen du logiciel 
Microsoft diffusé par Tandy/Radio Shack. Ce dernier 
comprend un éditeur EDIT, assez proche de l'éditeur 
de EDTASM, un compilateur F80 qui transforme le pro- 
gramme source FORTRAN en programme relogeable et un 
éditeur de liens L8Q ainsi qu'une bibliothèque de 
routines spécialisés LIB89/REL. 


L'utilisation ne nécessite qu'un lecteur de mini-dis- 
quette, mais les manipulations sont nettement simpli- 
fiées avec 2 lecteurs. 


Le compilateur F8 est un programme très volumineux 
qui évidemment, demande un petit moment pour le char- 
gement (environ 40 secondes) et l'édition des liens, 
avec recherche des sous programmes en bibliothèque 
demande environ 90 secondes. Si on s'amuse à tester 
ce produit avec un petit programme, très banal du 
style 


WRITE (1,19) 

19 FORMAT (1X,'BONJOUR') 
STOP 
END 


on est assez déçu par les manipulations et le temps 
à passer pour arriver à l'affichage du message. Par 
contre, pour des programmes bien plus longs, les 

temps de chargement sont, bien entendu, les mêmes. 


Donc, au premier abord, le système ne paraît pas très 
performant, mais il faut reconnaître que c'est déjà 
un exploit de pouvoir faire "avaler" du FORTRAN à un 
micro-ordinateur et de profiter des avantages de ce 
puissant langage comme nous allons le montrer. 


I1 n'est pas question ici de redonner les règles de 
syntaxe, mais pour ceux qui sont effrayés par ce lan- 
gage, il est intéressant de rappeler les analogies 

et différences avec BASIC. 


— Différences : entrées-sorties (utilisation de la 
pseudo-instruction FORMAT), opérations sur les chaî- 
nes de caractères (nécessité de "passer par un ta- 
bleau"), appel des sous-programmes (noms, paramètres, 
variables globales et locales...). 
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— Analogies 






BASIC FORTRAN 


IF <expressiort> THEN <instruction>| IFi<expression>}instructiort- 
Ets ferons de ligne 
Eucies or <var> = nl TO n2 


pérateurs | + = 





GOTO <étiquette 






DO <étiquette-<aë: nl, n2 











n1 ou n?2 variables ou 
constantes entières 









ni, n2 variables ou constantes 


L'exécution d'un programme écrit en FORTRAN est bien 
plus rapide qu'un programme interprété en BASIC, ce 
qui est la moindre des choses puisque le programme est 
exécuté sous la forme d'un langage machine (Z8@). Par 
contre, comme il a été dit, la mise au point est fas- 
tidieuse. Si ce langage était parfait et sa mise en 
oeuvre sans contrainte, il serait universellement uti- 
lisé. Il n'existe pas de langage universel. 


Le point fort de ce langage est la possibilité de 
constituer une bibliothèque de sous-programmes prêts 
à l'emploi ce qui, d'une part facilite la rédaction 
des programmes puisqu'on peut appeler simplement des 
sous-programmes de la "bibliothèque utilisateur" et 
d'autre part permet la mise au point de petits sous- 
programmes. L'éditeur de liens se charge de rassem- 
bler tous ces segments relogeables (ou translatables). 


Le langage FORTRAN F8 comporte ! extensions particu- 
lièrement puissantes parce qu'elles donnent la possi- 
bilité de tout faire : PEEK, POKE, INP et OUT. On , 
peut aussi appeler des sous-programmes écrits en as- 
sémbleur comme des sous-programmes ou fonctions FOR- 
TRAN. 


Les exemples de programmes très classiques illustrent 
la marche à suivre pour la compilation, la construc- 
tion du programme absolu et l'exécution. 


D'abord, la suite des carrés des 10 premiers nombres 
entiers (comme l'exemple choisi pour la présentation 
de BASCOM TRACE n° 3). 


1 - Chargement de l'éditeur 
EDIT 


2 - Nom du fichier pour le langage source FORTRAN à 
la demande de FILE : CARRE/FOR <Breald Breald si 
le fichier est à créer, autrement <enter>. L'em- 
ploi de l'extension "FOR" est obligatoire. 


3 - Création du texte source 
*T .... (comme EDTASM) 
Break 


} - Sortie de l'éditeur avec sauvegarde du fichier 
source 
*E 


on du programme source CARRE/FOR et 

n ramme relogeable CARRE/REL et 
éventueilement d'un fichier du programme compilé 
avec ou sans le code généré : 

F8@ CARRE, CARRE = CARRE 

implicitement CARRE/REL, CARRE/LST = CARRE/FOR 


6 - Hition de liens et exécution : 
L8@ CARRE-G 


WRITE(1, 181) 

101 FORMAT(1SX:’-— CARRES DES 10 PREMIERS NOMBRES —-" /) 
DO 18 N=1 ,19 
N2=N#x2 


implicitement CARRE/F 
si on veut conserver le 

L8@ CARRE-N, CARRE-E 

implicitement CARRE/REL-N, CARRE/CMD-E 


On remarquera, pour les manipulations et formats des 
commandes l'analogie avec BASCOM (TRACE n° 3). 


À 





Le fichier CARRE/FOR : 


WRITEC1:192) N;N2 
102 FORMAT (1X, 13, 1X,' AU CARRE DONNE ‘,110) 
19 CONTINUE 
STOP 
END 





Le fichier CARRE/LST : 


FORTRAN-8@ VER. 3.34 COPYRIGHT 1978 (C) BY MICROSOFT 
BYTES: 29166 
CREATED: @4-NOV-79 
201208 WRITEC1, 101) 
anne 0202" LD BC; ($$L) 
miss DOS" JP C#INIT) 
MORE aoge" LD DE, (191L) 
Hotcéotok 200s" LD HL, Cæ ai ou+) 
Hoktohok 2eec' CALL CsN2) 
101 FORMAT(1SX,’-- CARRES DES 18 PREMIERS NOMBRES -—"/) 
acer" CALL CSND) 
DO 10 Ne1 ,10 
NZ=N+#2 
2012" LD HL, 2001 
2015" LD CN) 7 HE 
WRITE(1: 102) N; N2 
201E LD HLs CN) 
015" EX DE, HL 
@91c’ LD HL: 2002 
@D1F* CALL ($E9) 
0022" LD CN2), HL 
0225 LD DE, (1821) 
B@28" LD He: Cr oi a+) 
0028" CALL C$W2) 
192 FORMAT(1X, ITS, 1X; ° AU CARRE DONNE ‘, 110) 
02€" LD BC: (N2) 
0031" LD DE, CN) 
0074" LD HE, Cr oi 2e+) 
0057 LD A: 05 
0933" CALL (#10) 
BOSC" CALL C#ND) 


Enfin, pour avoir une idée sur le gain de temps d'exé- 


cution, le test de vitesse de l'essai de BASCOM (TRA- 
CE n° 3). Ce programme est très proche de la version 
BASTC pour la boucle mais a nécessité la création de 
la fonction TIME pour déterminer la durée. Le résul- 
tat est frappant : 0.55 seconde tout en conservant 

le "J=1" dans la boucle. Une variante où cette bou- 
cle (1 à 10900) se trouve dans une autre boucle 1 à 

199 donne 56 secondes ! On conclut immédiatement que 
pour ce test, FORTRAN est 100 fois plus rapide que 








Pase 1 

ae10@ FORTRAN-60 VER. 3,34 COPYRIGHT 1978 (C) BY MICROSOFT 
Ge200 BYTES: 20186 

BOS00 CREATED: @4-N0V-79 


2400 00100 TD=TIME(O) 
00500 Hmeutok 0000’ LD BC, CS$L) 
PE] HASROk 000: JP CSINIT) 





00700 GU200 DO 19 N=1, 10000 

©vege LL DCE" LD HL;, + 20 a+) 
DO30Q  ##kHx dos" CALL CTIME) 

D1DDD tr a0ec' LD HL; (TD) 

D110D  #tmm 200F' CALL C$T1) 

21200 00:00 10 J=1 

D1:00 don @e12" LD HL, 2001 

81400 Hdotk 00157 LD EN); HL 


P1500 20400 TS=TIMECB)-TD 

b1eao MARK Ba18" LD HL, 2001 
01708  wwwwm  DU1B' LD CJ) HL 
21800 Non QG1E’ LD HL; CN) 
21300 LL ce21' INC He 

22000 wwe  D222' LD A: 10 
22100 Hat  DD26" SUB L 

22200 Nb 0225" LD A:27 
22300 ww 2227’ SBC H 

02400 Lil 0228 JP PF, (9915 ) 


22500 00500 WRITE(2,1@1) TS 

D2600  memms 002B’ LD HL, oo 00+) 
02700 ##krx 002€’ CALL (TIME) 

D2E00 sm 2a51" LD HL; (TD) 

22300 #4 0074" CALL (#SB) 

DSDOC  wmsx  DDT7" LD HL: (TS) 

23100 Ah @0zR’ CALL C#T1) 

25200 LOL 2SD’ LD DE: (191L) 


Vers 1978, un ordinateur avec unité centrale de 32K0 
disque dur + imprimante 80 lignes/minutes + lecteur 
DE CARTES 300/mn coûtait environ 7000 F par mois ! 
Les programmes qui étaient écrits en FORTRAN sont 
réutilisables sans grandes modifications. Pour l'en- 
seignement du FORTRAN, ce logiciel convient parfai- 
tement. 


En conclusion, le langage FORTRAN F8Q «st intéres- 
sant pour l'établissement de programmes performants 
en vitesse de calcul ; mais la compilation est lour- 








a:208 Qa72e 10 CONTINUE 

23500 ET STOP 

234008 Le 205F HL; CN) 
23500 mer 242" HL 
QSEOQ ere  BD4T" A; CR 
@3708 #wwkk  BD4S" L 
03200 Le 23 2046” A; 20 
05:300 Hhtok 004€” H 
240008 HRK 0049 P, (D215" } 
04100 “thx Le) (sST) 
@4200 2030@ 

D45:00 oneotok O04F" 202020202020 
@4400 Hotte 205s" 2120 


PROGRAM UNIT LENGTH=0057 (87) BYTES 
DATR ARER LENGTH=0052 (82) BYTES 


SUBROUTINES RÉFERENCED: 


$10 
SND 


VARIABLES: 
N @D2E* 
LABELS: 


20DE" 1011 2001" 
1e2L 2052" 


l'interpréteur BASIC. On comprend maintenant pourquoi 
ce vieux langage FORTRAN est encore largement utilisé 
et apprécié ; cependant, sur un micro-oréinateur, les 
temps de chargement compilation... sont importants, 
en outre, la longueur des programmes sources est li- 
mitée par la capacité des disquettes (Ah si les dis- 
ques durs étaient plus accessibles !).’ Mais lorsqu'on 
est pris au jeu et un peu fasciné par les possibili- 
tés du TRS89 - machine à tout faire - on a tendance 
à oublier que ce matériel est un micro-ordinateur. 





















23:00 Mine 2040" LD HLs + e2 20+) 
23400 hot DD4S" CALL C£W2) 

23500 20600 101 FORMATC2X; ’ DUREE ‘’,FE.3,;" S') 
23600 Hottes BB4E" LD DE; (TS) 

235700 Not 0043 LD HLs + 1 28+) 
D3:800 Hhioiok @84C' LD A, 02 

273008 LLLL ES QD&E" CALL C$11) 

04000 Hop 0051" CALL C£END) 

D4100 2070 STOP 

04200 Hit 2054" CALL CEST) 

24500 00750 END 






04400 Le) 2057" 202020202020 

Q4500 Hotte @25D" 2200 

24600 Hot @0SF" 2100 

24700 LOLUTS 0061" 2000 

24800 

24300 PROGRAM UNIT LENGTH=0063 (99) BYTES 
BS00Q DATA AREA LENGTH=OU24 (36) BYTES 































DS100 
PS200 SUBROUTINES REFERENCED: 
ps:00 
BS«ao #11 SINIT TIME 
SSD STI #SB sw2 
SERD  SND SST 
S720 
SEZO VARIABLES: 
S300 
EUR TD e001" N e0es" ñ aae7" 
péieo Ts 2005" 
D6200 
PES20 LABELS: 
26400 
PESRO ssl 2006" 1aL eee" 101L  @GoD" 








de, (comme en général, toute compilation avec géné- 
ration de codes translatables), et un interpréteur 

FORTRAN n'est pas envisageable sur un micro-ordina- 
teur. Donc, pour une utilisation classique, F89 ne 

remplacera pas BASIC (qui sur TRS80 a l'avantage de 
pouvoir être interprété ou compilé). Néanmoins, ce 

logiciel EDIT-F8G-L8G-LIB8G, qui fait partie de la 

grande bibliothèque de programmes contribue certai- 
nement à la puissance du système TRS80. 


Claude Nowzkowski 
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RAGE 






| brairie 
| 





Nous avons beaucoup de livres à vous présenter cette 
fois-ci ! Tous se rapportent directement ou indirec- 
tement au TRS. En voici quelques un classés par gen- 
re et accompagnés de quelques commentaires. 


SPECIFIQUES TRS (ou compatibles) 


LA CONDUITE DU TRS80 
(modèles 1 ou 3) 


Par Pascal Pellier 
ÆHitions : Eyrolles 
108 pages 

Pre SSP 





Cet ouvrage s'adresse à ceux qui ont déjà eu un pre- 
mier contact avec l'informatique (qui connaissent 
donc le BASIC) et qui possèdent ou envisagent d'uti- 
liser en TRS80. La première moitié du livre fait un 
bref survol des instructions et fonctions du BASIC 
niveau 2 (non-disque) et se trouve donc un peu redon- 
dante à notre avis, avec le manuel Tandy. Par contre, 
le chapitre suivant apporte les éléments de base sur 
la programmation en langage machine et son utilisa- 
tion sous BASIC, choses sur lesquelles ledit manuel 
est plutôt muet. Les possibilités graphiques sont en- 
suite brièvement évoquées ainsi que l'utilisation du 
clavier (PEEK et INKEY$ notamment). Un court chapi- 
tre est réservé aux périphériques (standards ou non) 
raccordables sur le TRS : extensions mémoire, gra- 
phiques, sonores et autres. Le modèle 3 est ensuite 
décrit en 4 (courtes !) pages et l'ouvrage se termi- 
ne par les annexes de rigueur et quelques exemples 
de programmes. En dernière page, un appel est lancé 
pour constituer, si le nombre de réponses est suffi- 
sant, un "annuaire des utilisateurs TRS" et un ques- 
tionnaire adéquat est joint à cet effet. En résumé, 
ce livre s'est montré un peu "léger" pour nous faire 
découvrir "toutes les possibilités cachées du TRS80" 
dont il nous promettait la découverte. 


LES GRAPHIQUES SUR TRS80 
Par Don Inman 
Editions du P.S.I. 


Prix CNVO EE 
140 pages 





Cet ouvrage publié par Dilithium Press et traduit en 
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français par les éditions du PSI est destiné à l'ini- 
tiation au dessin graphique sur ordinateur. Si vous 
vous interessez aux techniques graphiques et d'anima- 
tion employées dans certains jeux spectaculaires du 
TRS, eh bien... vous risquez d'être très déçu par ce 
livre ! Par contre, si vous connaissez les rudiments 
du BASIC, souhaitez vous initier au dessin graphique 
et êtes capable de vous émerveiller devant le tracé 
d'une ligne droite ou d'un triangle... alors ce li- 
vre est pour vous ! Notez qu'il n'y a rien de méchant 
dans cette dernière phrase : comme il y a des gens 
qui s'extasient devant un brin d'herbe ou une fleur, 
il y a ceux qui s'extasient devant une ligne oblique 
ou un polygone tracé lentement (car en BASIC) sur 
l'écran de leur tube vidéo... Ici, pas d'astuces à 
hurler ou de trucs délirants hyper-sophistiqués. qui 
vous vaporisent les méninges ! Rien que du simple et 
du massif, mais c'est excellent pour vous remettre 

en mémoire les rudiments de géométrie appris sur les 
bancs de l'école. Avec quelques simples lignes en 
BASIC niveau 2 (sans POKE s'il vous plait), on ap- 
prend ainsi à tracer des lignes de différentes in- 
clinaisons, des rectangles, à faire de l'art abstrait, 
à tirer sur des cibles d'abord stationnaires puis 
mouvantes et à tracer d'autres figures géométriques. 
Complété par des exercices (auxquels sont associés 
les réponses), c'est un bon ouvrage pédagogique mais 
à ne mettre qu'entre des mains innocentes ! 


INITIATION AU BASIC 


LE BASIC UNIVERSEL 
Par Richard Schomberg 
Editions : Eyrolles 


EEE E 
116 pages 





Ce livre s'adresse à ceux qui n'ont jamais programmé 
et qui désirent aborder BASIC pour la première fois. 
Il s'agit donc d'un livre de base exposant les prin- 
cipales notions de ce langage vues sous un angle très 
général, d'où le titre. De lecture très agréable et 
complété d'exercices progressifs, il est toutefois 
dommage, surtout un livre pédagogique qu'il soit par- 
semé d'un tas d'erreurs typographiques propres à je- 
ter le trouble dans l'esprit du lecteur novice. 


INITIATION A LA PROGRAMMATION PAR LE BASIC 
Par Jacques Schmit 
Editions : Eyrolles 


Pris S'OTOTCE 
262 pages 


Après quelques définitions simples et indispensables 
pouvant se montrer de bonne augure pour le novice 
(informatique, ordinateur, programme, ete...), cet 
ouvrage "grand format" (21 x 27) entraîne rapidement 
le lecteur dans une véritable forêt de listings et 
d'organigrammes dont il peut avoir quelque mal à se 
remettre. En fait et malgré son titre, ce livre de- 
mande des connaissances préalables sur l'informati- 
que et la programmation. Muni de cette base initiale, 
le lecteur pourra alors se lancer dans la pratique 
du BASIC qui est assurée ici par de très nombreux 
exemples pratiques, clairs et vivants. 


DIVERS 


MICRO-ORDINATEURS : COMMENT CA MARCHE... 
Par Richard Schomberg 
Editions : Eyrolles 


Prix sOr 
84 pages 





"Ce livre s'adresse simplement aux néophytes qui se 
sentent mal à l'aise dès qu'il s'agit de technique" 
nous dit l'avant-propos. Cet ouvrage décrit dans un 
style très pédagogique, la constitution d'un ordina- 
teur ainsi que les organes des sens (périphériques) 
qui lui sont associés : la mémoire, la "vue", l''ouie", 
le "toucher"... Le logiciel trouve également une pe- 
tite place dans ce trop petit livre : interpréteur, 
compilateur, principaux langages. Un bon ouvrage 
d'initiation à conseiller à ceux qui se posent trop 
de questions et qui veulent savoir ce qu'il se passe 
sous le capot... 


PROGRAMMER EN ASSEMBLEUR (780) 
Par Alain Pinaud 
Editions du P.S.I. 


PH NETS 
144 pages 





L'auteur étant très intime avec le rédacteur en chef 
de cette revue... nous nous limiterons simplement à 
citer quelques extraits typiques de cet ouvrage... 
"Enfin, au nombre des sots, figurent aussi quelques 
abrutis-particulièrement dégénérés dans la liste des- 
quels s'inscrit l'auteur, qui osent encore penser que 
l'assembleur est à la portée de tous"... "JP Hachel 
lui aussi, avait horreur des robinets qui fuient. 
Rien de plus agaçant que ces POP... POP !".. 
MEtendez-vous sur un tapis (les electrons circulent 
mieux ainsi), laissez aller tous vos muscles et es- 
sayez de vous mettre en HALT pour quelques instants"... 
"L'avantage de la méthode était évident : elle lais- 
sait à l'homme un bras libre, ce qui lui permettait 
d'en changer lorsqu'il y avait beaucoup d'aurochs"... 
Alors ? C'est difficile l'assembleur ? 


en Pierre du di TE 


PROGRAMMEZ VOS JEUX D'ACTION RAPIDE SUR TRS80 


Collection "microordinateur" 
Ed. Eyrolles 1982 
Pascal PELLIER 





Si le BASIC est un langage de programmation assez 
facile à utiliser, il ne se prête pas bien à la pro- 
grammation de jeux dès qu'il est nécessaire de visua- 
liser des mouvements rapides, de produire des effets 
sonores... Dans ce cas, il faut avoir recours au lan- 
gage machine au moyen d'un programme d'assemblage 

(ou assembleur) et la programmation devient alors 
fastidieuse. 


L'auteur propose des sous-ensembles prêts à l'emploi, 
ce qui permet la réalisation d'un programme comme un 
jeu de construction. Ces éléments sont écrits pour 
TRS80 ; mais, évidemment, en prenant quelques précau- 
tions (revoir les particularités du TRS80), il est 
possible de les utiliser pour tout système de base 
de microprocesseur Z80, et même de les transposer en 
codes pour d'autres microprocesseurs. Il est égale- 
ment possible d'appeler ces routines à l'intérieur 
d'un programme BASIC (ou tout autre langage permet- 
tant l'appel de tous programmes en langage machine). 


Ces nombreux petits programmes ne sont pas destinés 
qu'aux jeux, mais aussi à d'autres applications. 


L'auteur a préféré ne pas utiliser des routines de 
la MEM pour être plus rapide et pouvoir être indé- 
pendant des adresses spécifiques du système. Pour 
illustrer son exposé, il a réalisé un jeu de batail- 
le sous-marine. 


Après avoir présenté des sous programmes d'intérêt 
général ou de base 


- multiplication d'entiers 

- division d'entiers 

- génération de nombre pseudo-aléatoire 

- effacement d'écran 

- affichage d'un message sur l'écran 

- conversion binaire/ASCII 

- lecture du clavier 

- fonctions graphiques 

- tracé d'une droite 

- numéro d'une ligne d'écran (à partir d'une adresse) 

- sous programmes divers de la MEM (RST18H, 2BH, 
60H...) 


ii montre comment dessiner et animer : techniques de 
représentation, de déplacement des graphismes suivant 
les directions principales et suivant une direction 
quelconque ; et enfin, comment contrôler ces mouve- 
ments par des tests. 


Les effets sonores rendent les jeux beaucoup plus 
attrayants et leur programmation est ici bien détail- 
lée en expliquant le principe de génération des notes 
de musique. 


Enfin, après avoir décrit le jeu, l'auteur donne 
quelques conseils pour l'amélioration des program- 
mes de ce genre. 


En annexe, on trouve la liste complète avec tous les 
commentaires nécessaires pour comprendre parfaitement 
le fonctionnement du programme. 


C'est certainement un ouvrage à conserver à la por- 
tée de 1a main pour réaliser des programmes perfor- 
mants et bénéficier au mieux des possibilités du 
microprocesseur donc du miniordinateur. 


Claude Nowakowski 
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Truc B,°0c 


BOGUE AVEC LA FONCTION VAL SUR TRS (ET APPLE) 


Pour mettre à l'épreuve votre BASIC Microsoft, frappez le petit programme suivant 


10 A$ 
20 B 


"1E100" 
VAL (a$) 


Au lancement, une erreur de débordement intervient, ce qui est tout naturelétant donnée la valeur de l'exposant. 
Mais maintenant, ayez la curiosité de lister votre programme... : le second guillemet de la ligne 10 a disparu ! 
En relançant ce programme que BASIC a eu l'outrecuidance de modifier sans nous en faire part, un ou même parfois 
deux messages d'erreur apparaissent, faisant référence à un numéro de ligne inconnu du programme. 


Voici l'explication. La fonction VAL, avant d'effectuer la conversion de la chaîne alphanumérique en décimal, dé- 
limite la fin de chaîne (à l'endroit du second guillemet) en y plaçant un zéro. C'est une nécessité imposée par 
la routine de conversion. Normalement, après la conversion, le caractère détruit par le zéro (qui a fort heureu- 
sement été sauvegardé) est restitué. Seulement voilà : si une erreur est détectée lors de la conversion, on ne 
revient pas dans la fonction VAL mais on se dirige tout droit vers d'édition d'un message d'erreur, en oubliant 
de restituer le second guillemet...D'autre part, en BASIC Microsoft, la fin d'une ligne BASIC est toujours ter- 
minée par un zéro. Dans le cas de notre petit programme, après une première exécution, ce sont deux zéros qui ter- 
minent la ligne 10. La commande LIST qui ne cherche pas à comprendre, arrête l'affichage de la ligre 10 sur le 
premier zéro rencontré. Quant à la ligne 20, la commande LIST y accède par le "lien de chaîne" situé dans le tam- 
pon BASIC au début de la ligne 10 (invisible pour l'opérateur). Donc, pas de problème au listage. À l'exécution 
par contre, il en est tout autrement car en fin de traitement de la ligne 10, l'interpréteur qui veut passer à la 
ligne suivante, se trouve décalé d'un octet (l'octet suivant étant en réalité, la VRAIE fin de la ligne 10). Il 
s'en suit une mauvaise interprétation du numéro de ligne et de son contenu... Pour éviter cette anomalie et obte- 
nir une erreur de débordement "propre" (mais cela ne présent qu'un intérêt académique !}), il suffit tout simple- 
ment de ne pas mettre de guillement terminal à la ligne 10 : le zéro "fin de chaîne" de la conversion viendra 
alors remplacer le zéro "fin de ligne"... ce qui, somme toute, n'est pas gênant du tout ! 


Jacques Pinto 


Quoi de plus normal que de stocker des nombres double précision dans un fichier séquentiel sur disquette et de 
vouloir les relire plus tard ? Essayez par exemple le petit programme suivant 


10 OPEN "0"; 1, METCHN 

2UMPRINT ENT ET ITS pourquoi pas ? 
30 CLOSE 

HO OPEN "I",1,"FICH" 

SOSINPUT 1, LE 

60 PRINT A# 

70 CLOSE 


Eh bien le nombre 1.1 d'origine sera transformé en : 1.1000000238431858...! Cette fantaisie ne se produit que 
lorsque le nombre possède un point décimal et moins de 9 chiffre significatifs. Que s'est-il passé ? Il faut tout 
d'abord savoir que les nombres sont écrits dans les fichiers séquentiels sous la forme d'une chaîne de caractères. 
Ainsi, vous pouvrez très bien rémplacer le A# par un A$ en ligne 50, et ajouter 


55 A#-= VAL(A$) 


et cette fois, tout se passera normalement. Ceci nous prouve que la fonction de conversion CDBL (utilisée par 
INPUT ) ne fait pas très bien son travail ! Aussi, d'une manière générale, au lieu de faire 


A= 11 
B#=CDBL( A) 


il sera préférable d'utiliser la forme 
A=1-1 


B£=VAL(STR$( A) ) 
Bertrand de Pommery 


Pour fusionner (fonction MERGE de la version disquette) dex programmes BASIC en mémoire lorsqu'on ne dispose que 
des cassettes, il faut tout d'abord que leurs numéros de lignes soient compatibles. Suivre ensuite la procédure : 
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2 
| 


Charger le premier programme 
2 - Frapper ensuite au clavier 
I=PEEK( 16633)+PEEK( 16634)*256 
I=I-2 

POKE 16549,INT(I/256) 

POKE 16548,1I-256*INT(1/256) 


3 - Charger le second programme 
LH - Frapper 


POKE 16548,233 
POKE 16549,66 





Désormais, je commence tous mes programmes BASIC par la séquence suivante 


1 GOTO 10 
2 SAVE "nom-du-programme" : STOP 
10 début du programme 


Dès que j'ai tapé quelques lignes (par crainte des coupures de courant !) ou effectué une modif, il 
taper "RUN2" et le programme est sauvé automatiquement. Un "RUN" conduit à une utilisation norm 
teurs cassette pourront remplace "SAVE" par "CSAVE"... 








CHANGEMENT DE STEP 


DEBOGAGE DE SYS3/SYS SUR TRSDOS 2.3 : 


Suivant la valeur placée aux adresses ci-dessous, on 


< 5 Lors de création de fichiers ou d'ajout (par les fonc- 
obtiendra les temps suivants : 


tions DUMP SAVE ou OPEN), si la longueur de l'enregis- 
trement est multiple de 5 secteurs, SYS3/SYS fermera 
le fichier en ayant alloué une granule de plus que 
nécessaire. 


39/4Q millisecondes (vitesse standard) 
29 _- 
12 - 
6 = 





SYS3/SYS, Piste 12H, Secteur @ : 
BOOT/SYS, Piste 09, Secteur 9 


Octet BA pour TRSDOS 2.3, NEWDOS+ et NEWDOSAÿ 


= BC = VTOS 4.9 et LDOS 5.0 DENT . 
_ 6B - NEWDOS89 Version 1. E9 23 UEES INC HL B7 LEES OR A 
_ 72 - NEWDOS8@ Version 2.9 EA LF AEE6 XOR A 28 LEE6 JR Z,$+03 
EB EB LEET EX DE,HL 1 
SYSO/SYS, Piste 09 EC ED LÉE8 SBC HL,DE - 23 NEE8 INC HL 
k ED 52 EB HEE9 EX DE,HL 
Secteur 7, Octet 52 pour TRSDOS 2.3 EE EB HEEA EX DE,HL ED HEEA SBC HL,DE 
_ 9, _ QF — NEWDOS+ et NEWDOSUQ EF E1 LEEB POP HL 52 
- 8 _- FE —  NEWDOS8G Version 1.@ F9 CA LEEC JP Z,NF7B EB LUEEC EX DE, HL 
I | 7B E1 UEED POP HL 
I1 n'y a pas de modification correspondante à faire F2 LF 37 LEEE SCF 
sur VTOS 4.4 LDOS 5.9 et NEWDOS Version 2.Q F3 DA LEEF JP C,4F7B D2 HEEF JP NC,AF7B 
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Les autres DOS ne font pas cette erreur, même NEWDOS 
qui a été modifié d'une manière différente (adonction 
de la routine 591B). 


DEBOGAGE DE SYS6/SYS SUR TRSDOS 2.3, NEWDOS+ et 
NEWDOSAG : : 


La commande DIR avec option À fait apparaître des 
erreurs dans le nombre d'enregistrements logiques 
affiché lorsque la longueur de ceux-ci est différen- 
te de 256. C'est. la cas général des enregistrements 
créés par PROFILE. 


Pour supprimer cette bogue, changer la valeur de 7E 
en AF (LD A,(HL) en XOR A), à l'adresse suivante : 
sur TRSDOS 2.3, Piste 14H, Secteur 2, Octet 50 H 

sur NEWDOS+ et NEWDOSAG, Piste 14H, Secteur 5, Octet 
38H. 


Les autres DOS ne font pas cette erreur. 


ADAPTATION DE PROFILE AUX DISQUETTES DE PLUS DE 
35 PISTES : 


PROFILE Version 1.9 ouvre systématiquement des fi- 
chiers de données PRODAT de 32 granules sur le Disque 
@ et de 66 sur les Disques 1,2 et 3. Pour utiliser 
pleinement la capacité de DRIVES pouvant exploiter 
plus de 35 pistes, il faut modifier les valeurs loca- 
lisées aux adresses ci-dessous : 


Programme INIT, Piste 15H, Secteur 3 
Octets 86 et 87 pour le DRIVE G 


_- 88 et 89 _- - 1 
_- 8A et 8B - _ 2 
_ 8C et 8D - = 


Les valeurs contenues à ces adresses représentent 
(dans l'ordre habituel, poids faible, poids fort, en 
Hexadécimal) le nombre de secteurs exploités. 


Les valeurs d'origine sont : 


9F et @@ pour le DRIVE @, soit 159 secteurs (32 gra- 
nules) 

49 et O1 pour les autres DRIVES, soit 329 secteurs 
(66 granules). 


Un secteur est donc gaspillé et peut être récupéré 
si SYS3/SYS a été débogué, mais une granule de plus 
que nécessaire doit rester libre pour le fonctionne- 
ment de LPFORM. 


Le DRIVE @ est très pénalisé car il reste 3 granules 
libres sur la disquette 35 pistes d'origine, d'autant 
plus qu'il est alloué indûment (cf supra, "bogue" sur 
SYS3/SYS du TRSDOS), à chacun des programmes ACCESS 
et SORT, 2 granules pour 5 secteurs occupés. En outre, 
il est possible de supprimer FORMAT et BACKUP (3 gra- 
nules pour chacun) et SYS5/SYS (1 granule) nécessaire 
seulement pour DEBUG. I1 y a donc déjà 11 granules à 
récupérer pour PRODAT sur une disquette de 35 pistes, 
en faisant passer la valeur de l'octet 86 de 9F à 
D6/D7. 
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Pour ACCESS et SORT, modifier le DIRECTORY comme suite 
Piste 11H, Secteur 9, ACCESS,. Octet 57, changer g1 


Piste 11H, Secteur 3, SORT, Octet F7, changer O1 en 


Piste 11H, Secteur @ (HIT), Octets 05 et 1C, changer 


Avec les disquettes formatées à 49 (ou 42 pistes), 
les valeurs correspondantes du programme INIT sont : 


DRIVE @ ===> 98/49 et 91 (ou 1C/1D et 01) 
DRIVES 1,2 et 3 ===> 7B/7C et 1 (ou 8F/99 et 1) 


ADAPTATION AUX IMPRIMANTES N'ACCEPTANT PAS LES CODES 
GRAPHIQUES 


Avec PROFILE, les imprimantes ne décodant pas le bit 
7 sautent une ligne (non comptée) lorsqu'elles reçoi- 
vent le code 8A, ce qui risque de poser des problèmes 
lors des sauts de page. 


Modifier le programme PRINT, Piste QC, Secteur 7, 
Octet 14, en remplaçant la valeur 8A par 2ÿ@ (code 
espace), par exemple. 


BOGUE COMPILATEUR BASIC MICROSOFT SOUS NEWDOS80 


Lorsque l'on travaille sur des fichiers séquentiels 
sous NEWDOS80 avec un programme compilé pas BASCOM 
de Microsoft (en somme, quelque chose de tout-à-fait 
ordinaire...), on peut avoir de fâcheuses surprises, 
ainsi que le démontre le petit programme suivant 


10 CLEAR 1000 

20 OPEN"0",1,"FICH:0" 

30 FOR N=1 TO 4 

HO PRINT 1, STRINGS$(127,"*") 
50 NEXT 

60 CLOSE 


TOMOPENMIE; "1; MF ICH" 
80 N=0 
90 IF EOF(1) THEN CLOSE : END 


100 INPUT: 1, A$ 
110 GOTO 90 


: N=?+1 : PRINT N ; A$ 





Ce programme agit de telle sorte que la fin d'un en- 
registrement tombe exactement sur la fin d'un secteur 
(256 octets) de la disquette. C'est peut-être un coup 
de chance, mais cela peut parfois arriver ! Si vous 
compilez ce programme, vous vous apercevez que la 
lecture du fichier boucle indéfiniment... ce qui 
n'est pas tout-à-fait normal. Ce problème ne se pro- 
duit ni sous TRSDOS ou LDOS, ni sous interpréteur. 
Pour pallier à cette anomalie, j'ai tout d'abord 
ajouté à mon programme une séquence qui compte la 
longueur de chaque enregistrement et qui lui ajoute 
un caractère spécial lorsque celui-ci se termine sur 
une limite de secteur, ce caractère devant être reti- 
ré à la lecture... Depuis peu de temps, j'ai appris 
qu'il y avait un moyen plus simple, transmis à Appa- 
rat par Microsoft lui-même et qui permet d'éviter 
toute cette cuisine 


Avec l'utilitaire Superzap, modifier le secteur re- 
latif 10 de BRUN/CMD ainsi 
BRUN/CMD, 10, 1D changer 46 OB 70 en 6 00 70 


et le tour est joué... Mais il fallait le connaître ! 


Bertrand de Pommery 


PP Te 7 





nouveau 





_ Pour ne plus taper nos 
programmes 





DISQUETTES "TRACE" 


Ceux de nos lecteurs qui sont venus nous voir aux 
boutiques du Sicob ont eu l'agréable surprise de 
trouver en vente sur notre stand une disquette con- 
tenant les programmes figurants dans les numéros 1 

et 2 de TRACE. Nous y avons pensé à la dernière minu- 
te ce qui explique que nous n'avons pas trouvé le 
temps de vous en prévenir... Mais il n'est jamais 
trop tard pour bien faire ! Naturellement, cette nou- 
velle initiative nous a causé quelques soucis et nous 
a amené à nous poser une question fondamentale : le 
support serait-il sur cassette ou sur disquette 7? 

La première solution ayant été écartée assez rapide- 
ment (problème de lecture, nécessité de passer par 
un banc de duplication ce qui implique de grosses 
quantités, etc...), nous avons donc opté - tout en 
ayant conscience que nous allions faire quelques mé- 
contents - pour le support disquette dont la duplica- 
tion en petite quantité nous pose moins de problèmes 
(ie jour où TRACE aura 10000 abonnés, nous pourrons 
ré-étudier la question !). Là encore, nouveau pro- 
blème : la disquette pour des raisons de copyright, 
ne devait pas contenir de système, ce qui risquait 

de brimer certains utilisateurs "mono-disquette!" ... 
Comme vous pouvez le constater, le problème n'est 

pas très simple, mais ce n'est qu'une expérience que 
nous sommes prêts à abandonner s'il devait s'avérer 
que le nombre de mécontents dépasse le nombre d'uti- 
lisateurs satisfaits... L'avenir nous le dira ! 


Pour ce qui est du temps présent, l'utilisateur se 
trouve donc devant plusieurs situations : il possède 
un modèle 1 (ou équivalent) ou un modèle 3, avec une 
ou au moins deux unités de disquette. Son système 
d'exploitation est TRSDOS de Tandy mais il peut - ce 
qui est très probable - avoir fait l'acquisition d'un 
autre système (LDOS, NEWDOS, NEWDOS80...). Actuelle- 
ment et à notre connaissance, il n'existe malheureu- 
sement aucun moyen pour un utilisateur modèle 3 mono- 
disquette de lire un support enregistré en simple 
densité. C'est pourtant techniquement faisable mais 
Tandy a probablement jugé qu'un tel investissement 
était inutile, attendu que la plupart des utilisa- 
teurs disquette du modèle 3 étaient équipés de deux 
unités. Le même problème se pose d'ailleurs pour ceux 
qui sont passés de la version 1.2 à la version 1.3 
du TRSDOS en voulant utiliser la commande XFERSYS 

qui ne fonctionne (la documentation est très silen- 
cieuse sur ce point) qu'avec deux unités. 


Lz disquette TRACE étant enregistrée en simple den- 


sité 35 pistes, la marche à suivre devant chacun de 
æ=s cas est l'une de celles qui figurent ci-contre : 


MODELE 3 : 


- Monodisquette : impossible actuellement. 

- Double disquette : la commande CONVERT permet de 
lire sur l'unité 1 les fichiers enregistrés en 
simple densité de la disquette TRACE et de les 
recopier sur l'unité O. 


_- Monodisquette avec TRSDOS : impossible actuelle- 


ment. 
- Monodisquette avec NEWDOS ou NEWDOS80 


COPY :0 $MATHIC2/BAS TO MATHIC2/BAS 


(ne pas oublier le dollar devant le premier nom). 
- Monodisquette avec LDOS (version antérieure à 
see) 


XFER MATHIC2/BAS:0 


- Monodisquette avec LDOS (version à partir de 
Se T-22) 


COPY MATHIC2/BAS:0 TO :0 (X) 


Les exemples qui précèdent sont donnés pour le pro- 
gramme MATHIC2/BAS figurant sur la disquette TRACE. 
Il sera nécessaire de reproduire cette opération pour 
chacun des programmes à transférer, ce qui est assez 
long mais d'un emploi facile : il suffit de suivre 
les consignes affichées par les commandes qui distin- 
guent la disquette SOURCE (TRACE), la disquette DES- 
TINATION (disquette système sur laquelle vous voulez 
recopier les programmes), la disquette SYSTEM (dans 
ce cas, la même que la destination). 


Un détail : le support employé pour enregistrer la 
disquette TRACE est garanti "double densité", ce qui 
signifie qu'il est de bonne qualité et PEUT supporter 
une densité double de secteurs. Toutefois, cela ne 
veut pas dire - comme certains l'ont cru au Sicob - 
que les programmes fournis ont été enregistrés en 
double densité et qu'ils ne sont lisibles que sur un 
modèle 1 équipé d'un "doubleur de densité". 


Encore une chose : deux autres disquettes TRACE (nu- 
méros 3 et 4) sont disponibles ! Avis aux amateurs ! 





Pour commander vos disquettes 
renortez-vous en page 95 
TRACE 
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programmes 
Côté court 





INSOMNIES ? 


Si vous avez des insomnies et plutôt que de prendre un médicament, suivez plutôt ces directives : 


1) Faire CLEAR 200 


10 FOR I=1 TO 3 : PRINT â$: : NEXT : 
THEN A$=8$+CHRS(CRND(157)+33) : GOTO 10 ELSE 


THEN AS$=LEFTS(AS$S:LEN(AS)-1) 2 F=1 
GOTO 10 





2) Entrer la ligne suivante sans oublier le ":" après le PRINT A$ 
3) Faire RUN et attendre quelques secondes... 


Raymond Lobry, 


CONVERSION HEXA/DECT : DE PLUS EN PLUS FORT ! 

Le programme de conversion paru dans TRACE n° 3, à la page 35, peut prendre plusieurs secondes pour s'exécuter. 

De plus, il occupe 150 octets... Voici un programme bien plus rapide et n'occeupant que 92 octets (sans les espa- 
ces). Qui dit mieux ? Le défi est lancé ! En outre, celui-ci emploie des noms de variables peu utilisés (sauf A$). 
La chaîne à convertir est A$, le résultat est N9. 


Exemple d'utilisation : 


10 INPUT “VALEUR HEXA? 

20 GOSUE 1000 

30 PRINT "VALEUR DECIMALE® 

40 GOTO 10 

Frédéric Mora 





Li SHARE 18348) :POKE16930:PEEK(16549)À= 


SéXPEEK(16634)1-Z:POKE16S48 ;: { AANDESS) : 
S8:CLOAD 





Procédure à suivre : 


1) charger le programme ci-dessus, le sauvegarder et le lancer par RUN. 

2) mettre le magnétophone en marche pour lire le premier programme BASIC à fusionner. 
3) frapper au clavier : POKE16548, PEEK( 16928) :POKE16549,PEEK( 16930) 

4) faire RUN. 

5) mettre le magnétophone en marche pour lire le programme BASIC suivant à fusionner. 
6) retourner au point 3 pour d'autre programmes éventuels. 


Rémi Piette 


Ce programme se charge après le ou les programmes (fusionnés) à renuméroter. Il se lance par : RUN 65528. Après 
exécution, effacer les deux dernières lignes. Attention : les branchements contenus dans les programmes ne sont 
pas modifiés. Toute modification d'écriture du programme qui suit (espaces, texte d'entrée, etc...) modifie la 
valeur 183 de la ligne 65528. 


bSSZS DEFINTA:CLS:AF=(PEEK (14693) +2S464PEEK(164634))-193: 
INPUT'GUEL P8S DE NUMEROTATION”:AU:@V=4l:A4D=PEEK (14548) 


+296*PEEK (146549) 
63529 PES nn 





Rémi Piette 


REP AGP 
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initiation 


Pilot: 


un langage pour 
l’enseignement 


Il arrive souvent que la condition d'informaticien 
amateur coïncide avec celle de père de famille ou 
avec celle d'enseignant. Cela explique peut-être 
l'intérêt que suscite l'emploi des ordinateurs com- 
me aide a l'enseignement. 


Les premiers essais dans ce domaine sont alors con- 
. sacrés essentiellement au renforcement des appren- 
tissages de base : lecture, calcul, orthographe. 

Il est en effet assez simple de concevoir des pro- 
grammes puis de les écrire en BASIC permettant de 
s'entraîner au calcul, de faire réviser les tables 
de multiplications ou le temps des verbes, d'amé- 
liorer la capacité de lecture... 


Les meilleures réalisations réintègrent la dimen- 
sion du jeu, curieusement bannie du domaine de l'en- 
seignement (n'est-il pas "normal" qu'il en soit ain- 
si puisque la plupart d'entre nous avons "subi" la 
contrainte d'un apprentissage à base de punitions 

et de récompenses !). La pratique des jeux sur O.I. 
apprend à utiliser au mieux les possibilités du gra- 
phique et de l'interaction pour accroître la moti- 
vation de celui qui apprend. Celui-ci n'agit plus 
pour obtenir une bonne note mais pour battre son 
propre record ou tout simplement, par essais et er- 
reurs, pour aboutir à la bonne réponse. L'erreur 
n'est plus déshonorante et devient au contraire un 
moyen de se rapprocher du but. Ces programmes al- 
liant le jeu et la pédagogie sont parfois appelés 
des LUDICIELS. 


Une autre technique, appelée QCM (question à choix 
multiples), simple à réaliser, est utilisée pour le 
contrôle de connaissances. Elle consiste à poser 
une question suivie d'une liste de réponses vrai- 
semblables dont une seule est la bonne, comme dans 
l'exemple suivant 


QUELLE EST LA CAPITALE DE LA REPUBLIQUE 
FEDERALE D'ALLEMAGNE ? 


a  FRANCFORT 
b BONN 
c MUNICH 


répondez par la lettre précédant la réponse selec- 
tionnée. 


Sur ce simple exemple il est possible de montrer 
les différentes manières d'exploiter la réponse que 
pourra faire l'élève. 


Si la réponse n'est pas égale à "a", "b" ou "c", la 
question sera réaffichée avec le commentaire 
‘répondez par a, b ou © uniquement", 


Si la réponse est "a"! ou "c', le commentaire "non, 
ce n'est pas la bonne réponse" pourra être affiché. 
I1 sera préférable d'indiquer pour "a" que c'est le 
nom de la capitale et non de la principale ville 

qui est recherché, et pour "ce" que la Bavière n'est 
qu'un des états constituant la RFA. L'objectif le 
plus important n'est-il pas d'aider l'élève à décou- 
vrir la bonne réponse plutôt que de le sanctionner 








_— 


ou de lui infliger une notation sans explication ? 
Dans le cas de 1a bonne réponse “b'", au lieu d'af- 
ficher "c'est bien", il pourra être utile d'indiquer 
un commentaire de renforcement du genre : "BONN est 
bien la capitale fédérale de la RFA, chaque "land" 
la constituant ayant leur propre capitale. 


Il reste un dernier point à règler : éviter que 
l'élève ne reste indéfiniment sur cette question 

(les informaticiens parlent alors de bouclage). Il 
suffira de compter le nombre de passages sur la ques- 
tion et de fixer une limite, par exemple 3. On pour- 
ra déclencher en cas de quatrième passage, soit l'af- 
fichage de la bonne réponse, soit l'enchaînement sur 
un autre dialogue destiné à mettre l'élève sur la 
voie de la réponse. 


C'est en construisant par ce biais des "cheminements" 
différents que le programme "s'adaptera", lors de 
l'exécution, aux réactions de l'élève concrétisées 
par ses réponses. 


Cependant cette approche atteint rapidement ses li- 
mites : faire un bon programme, utilisant rationel- 
lement les capacités graphiques, soignant la présen- 
tation d'écran, gérant un bon niveau de complexité 
de situations, avec une interactivité et des perfor- 
mances satisfaisantes, et en plus organisé de telle 
sorte qu'il puisse être modifié facilement, implique 
d'avoir investi beaucoup de temps et d'énergie dans 
l'apprentissage de l'informatique. De même, seul un 
auteur ayant une grande pratique de la pédagogie 
saura définir des programmes dont la finalité sera 
effectivement d'apporter une aide à l'enseignement. 


Alors faut-il être pédagogue-informaticien ou infor- 
maticien-pédagogue ? Le temps pour former l'un ou 
l'autre étant fort long, l'idée est venue de définir 
un "langage" spécialisé pour l'écriture de program- 
mes à but éducatif et destiné aux auteurs pédagogues 
Sans formation approfondie à l'informatique. (Il 
sera toutefois souhaitable qu'une formation à l'al- 
gorithmique ait été dispensée au préalable). Pour 
cela il a fallu mettre en évidence les "fonctions" 
les plus utilisées dans l'écriture de ce type de 
programme et leur faire correspondre des instruc- 
tions dans ce langage. Ainsi le langage PILOT (Pro- 
gramming Inquiry Learning Or Teaching, programmation 
de questions pour l'apprentissage ou l'enseignement), 
a été développé vers 1970 pour faciliter l'écriture 
de "dialogues" à vocation d'enseignement. 


L'exemple précédent va nous permettre de dégager les 
fonctions et les instructions correspondantes néces- 
saires pour réaliser un dialogue simple 


T: présentation d'une "sollicitation" composée 
d'un texte introduisant le contexte, et 
d'une question 

4: lecture de la réponse de l'élève 

M: analyse de cette réponse 

JY: , JN: ou J: chaînage de chaque type de 
réponse attendue à des actions appropriées 
(commentaires, retour à la question, pas- 
sage à un autre dialogue). 
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# (oui) ou N (non) sont utilisés pour choisir une 
instruction d'après le résultat de l'analyse de la 
réponse qui précède. 


Au moyen de ce langage très simple nous allons pou- 
voir programmer facilement l'exemple du début 


10 T QUELLE EST LA CAPITALE DE LA RFA ? 

20 A 

30 M: b 

1O TY: BONN EST BIEN LA CAPITALE FEDERALE... 

50 JY: 140 (vers un autre dialogue) 

60 M: a 

TOMATE: C'EST LA CAPITALE QUI EST RECHERCHEE ET 
NON LA PRINCIPALE VILLE DE RFA 

AO TX: 10 (retour à la question) 

90 M: c 

100 TY: LA BAVIERE N'EST QU'UN DES ETATS CONSTI- 
TUANT LA RFA 


110 JY: 10 (retour à la question) 

120 OT: REPONDEZ PAR a, b ou c UNIQUEMENT 
130 J: 10 (retour à la question) 

140 (autre dialogue) 


technique 


Sachez écouter 


votre 
ordinateur 


Essayez de programmer cette séquence en BASIC et 
vous verrez tout de suite l'intérêt d'utiliser des 
instructions spécialisées pour écrire lisiblement 
des dialogues à but éducatif. 


Si vous désirez expérimenter ce langage, procurez- 
vous le numéro de Juillet 1981 de la revue 80 MICRO- 
COMPUTING. Vous y trouverez la liste des instructions 
d'un programme BASIC qui produit une cassette système 
contenant l'Interpreteur PILOT, qui n'occupera que 
300 octets en mémoire. 


Comme tous les langages spécialisés, PILOT s'est 
étoffé progressivement jusqu'à devenir un langage 
informatique complet. Nous verrons dans un autre 
article deux réalisations de PILOT, disponibles sur 
TRS-80 : BPILOT (diffusé par CAMI, P.0. Box 2030 
Goleta, CA 93018) qui est une extension de BASIC et 
PILOT PLUS (diffusé par TANDY) qui est un langage 
complet incluant un éditeur graphique. 


—————————}  } È }È Pierre Landry 












FAÎTES ‘LA_LA? 
POUR Voir 









Faites l'essai suivant : placez à proximité de votre 
ordinateur un poste de radio reglé autour de 90 Mhz, 
en fréquence modulée. Vous entendrez un sifflement 
lorsque l'ordinateur est en attente d'une entrée au 
clavier. Lors de l'exécution d'un programme en BASIC 
vous entendrez un bruit de machine au rythme varia- 
ble, mais régulier lors de l'exécution de boucles. 
Bref, vous entendrez réellement travailler votre or- 
dinateur. 


Peu intéressant, direz-vous. Vous disposez cependant 
par ce simple moyen d'un puissant outil diagnostique 
pour la détection de certaines pannes ou anomalies. 


Je citerai au hasard, car les exemples sont nombreux: 


1. Un son enroué indique que l'horloge temps réel 
est en service, donc accès interdit à la K7. vous 
tapez CMD"T"' et le son redevient pur. 


2. Lors de l'échange ou la modification de variables 
alphanumériques, pendant les tris ou les entrées par 
INPUT, le bruit de machine est parfois périodique- 
ment interrompu et remplacé par un "gli, gli..." 
indiquant que l'ordinateur est occupé à remettre de 
l'ordre dans l'espace mémoire encombré défini par 
CLEAR. L'ordinateur est alors bloqué pendant "un 
certain temps", et les entrées clavier sont inopé- 
rantes. Ceci indique que votre programme est mal 
écrit, mais c'est là une autre histoire... 


3. Lors de l'accès au disque, vous entendrez succes- 
sivement avec des "bruits" différents, la lecture du 
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répertoire puis celle des secteurs et des changements 
de piste. Mieux encore, si la lecture d'un secteur 
est infructueuse, vous entendrez l'ordinateur recom- 
mencer plusieurs fois cette lecture, le message DISK 
I/0 ERROR n'apparaissant qu'après environ dix essais 
négatifs. Ceci vous permet de préjuger, même en l'ab- 
sence d'un message d'erreur, que la disquette est 
douteuse. Paradoxalement, un nouveau SAVE du pro- 
gramme remet souvent tout en ordre. Vous pourrez 
aussi constater qu'un CMD'T" avant l'accès au disque 
élimine la quasi totalité de ces erreurs. Mais ceci 
est encore une autre histoire... 


L. Enfin, s'il vous arrive de rester "planté" sans 
raison apparente, ou encore si une unité disque se 
met en marche de façon inopinée, il est probable 
(mais non certain) qu'un connecteur est mal fixé, 
qu'il n'y a pas de "masse" ou mise à la terre, ou 
que, si elle existe, sa continuité n'est pas par- 
faite vers tous les périphériques. Si, en déplaçant 
légèrement les câbles et les appareils, vous enten- 
dez une nette modification de l'intensité sonore, il 
est quasi-certain que quelque chose est incorrect à 
ce niveau, et vous pourrez par éliminations succes- 
sives, isoler la connexion ou la masse défectueuse. 
Un point particulièrement vulnérable est le petit 
câble plat de raccordement du clavier à l'interface 
d'extension. 


—_—_—_—_—…——..….—.  !.!. €" DPousmiche 


initiation 





Les programmes 


de base de votre 


système 





Vous pouvez souvent rencontrer dans des livres ou 
des revues les mots éditeur, moniteur, compilateur, 
assembleur, désassembleur, interpréteur... mais 
qu'est-ce donc 7? 


Ce sont différents noms donnés à des programmes qui 
réalisent des fonctions bien précises, lorsqu'ils 
sont exécutés par un ordinateur. Pour des raisons 
de performances, ces programmes sont écrits, dans 
la majorité des cas, en langage machine - le langa- 
ge natif du microprocesseur, le seul en fait, que 
celui-ci peut comprendre. 


Le moniteur est un programme qui figure toujours - 
sous une forme ou sous une autre - dans la mémoire 
de l'ordinateur. C'est grâce à lui que l'homme peut 
dialoguer d'une manière simple avec la machine. 
Outre ce rôle de médiateur, il offre à l'opérateur 
ou aux programmes des "couches supérieures" (voir 
plus loin), un certain nombre de services. Il con- 
tient les "drivers" ou pilotes d'organes périphéri- 
ques, qui sont des portions de programmes spécifi- 
ques à chaque type de matériel relié à la machine. 
Imprimer le caractère "A" sur l'imprimante, ou l'af- 
ficher sur l'écran vidéo peut sembler se borner à 
une simple opération d'aiguillage. Pourtant, la ma- 
nière de dialoguer au niveau élémentaire avec l'im- 
primante est très différente de celle employée pour 
dialoguer avec l'écran. Ce sont les pilotes qui, 
adaptés à chaque type d'organe, rendent cette opé- 
ration très banale pour le programmeur. D'où la no- 
tion importante de lcouches'" logicielles entre l'hom- 
me et la machine 


- couche 1 : (la plus proche du matériel) 
moniteur, "drivers!" 

- couche 2 : interpréteur, compilateur 

- couche 3 : programme en langage évolué 


On pourrait par exemple, imaginer une quatrième cou- 
che acceptant les programmes issus de différents 
langages évolués ou de différents ordinateurs, pour 
les transposer en un langage unique de la couche 3 ! 
Plus le nombre de couches augmente et plus on s'ap- 
proche de l'homme. Selon la complexité et l'impor- 
tance du système, le nombre de couches peut devenir 
très.important. 

Dans un contexte "exploitation", le moniteur est ap- 
pelé : système d'exploitation (Operating System). 


Celui du TRS-80 existe sous une forme réduite et dis- 
crète, en mémoire morte. Lorsque des disquettes sont 
employées (on parle alors de Disk Operating System 
ou DOS ou SED en français), le rôle du moniteur de- 
vient plus apparent : c'est celui d'un véritable 

chef d'orchestre ! 


Parfois et le plus souvent sur de petits systèmes, 
le moniteur offre un certain nombre de commandes 
orientées vers l'exploration des "couches basses" 
du logiciel et même de la couche "physique", celle 
du microprocesseur et des composants électroniques 
qui l'entourent. On l'appelle alors : moniteur "lan- 
gage machine". Avec ce dernier, il est possible de 
lire, d'écrire ou de modifier le contenu de la mé- 
moire et des registres du microprocesseur, de re- 
chercher une valeur donnée, d'écrire un petit pro- 
gramme en langage machine, de l'exécuter, etc... 
RSM est l'exemple d'un tel programme tournant sur 
TRS-80. Mais il y en a d'autres, et il paraîtrait 
même qu'il s'en cache un dans les mémoires mortes 
du Vidéo Génie ! 


L'interpréteur est un programme dont la fonction, 


comme son nom l'indique, est d'interpréter les or- 
dres d'un autre programme écrit en langage évolué, 
par exemple celui que vous avez écrit en BASIC. Pour 
le TRS-80 comme pour beaucoup d'ordinateurs indivi- 
duels, l'interpréteur est en mémoire morte (ce qui 
signifie qu'il est directement disponible sans avoir 
besoin de le charger), et le langage en question est 
le BASIC. Il existe d'autres types d'interpréteurs, 
liés à d'autres langages : APL, LISP, FORTH en sont 
des exemples. Mais attention, tous les langages ne 
se prêtent pas toujours bien à l'interprétation, 
Pascal pour ne citer que lui. L'interpréteur porte 
bien son nom : chaque "mot", chaque "phrase" compo 
sant le programme écrit en langage évolué, est tra- 
duit au fur et à mesure, afin d'être "digéré" et fi- 


B À À A = 
nalement exécuté par le microprocesseur. Le gros in- 


convénient de cette opération est de prendre un temps 
non négligeable. Pour ne donner qu'un exemple, si 
l'interpréteur passe dix fois sur la même ligne (dans 
une boucle, par exemple), il vérifiera dix fois que 
celle-ci ne comporte pas d'erreur de syntaxe... A ce 
sujet, on trouve des interpréteurs qui procèdent à 
cette vérification lors de l'introduction même de la 
ligne de programme, ou à chaque modification de cel- 
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le-ci. Le gain en temps d'éxécution est alors très 
appréciable. Mais l'interpréteur a tout de même des 
avantages. Le principal est d'être très interactif, 
ce qui signifie qu'une erreur détectée à l'exécution 
sera corrigée sur le champ et que le programme pour- 
ra être relancé dans les secondes qui suivent. En 
phase de mise au point, l'interpréteur s'avère éga- 
lement très puissant. On veut "tracer" l'évolution 
de telle ou telle variable ? Facile : il suffit d'a- 
jouter des PRINT aux endroits adéquats, puis de les 
retirer lorsqu'ils ne sont plus nécessaires. Ajou- 
tons un STOP par ici, pour voir si cette ligne est 
bien exécutée... Oui, c'est bien le cas, mais que 
contient alors la variable X# ? Frappons PRINT Xg#... 
et relançons l'exécution. Tiens, on va un peu plus 
loin, cette fois... 


Si l'on ne peut vraiment plus supporter les inconvé- 
nients des interpréteurs, mais que l'on est prêt à 
ne plus bénéficier de leurs avantages... alors on 
peut toujours utiliser le compilateur (lorsqu'il 
existe dans le langage considéré) ! Celui-ci, par- 
tant d'un programme source identique à celui utilisé 
par l'interpréteur mais placé ordinairement sur dis- 
quette, produit - sans l'exécuter - un programme ap- 
pelé l'objet" au format langage machine. Durant cette 
opération qui peut prendre un certain temps, il dé- 
tecte la présence d'erreurs éventuelles dans le pro- 
gramme et, si tel est le cas, il sera nécessaire 
d'en effectuer la correction et de procéder à une 
nouvelle compilation. Dès qu'il n'y a plus d'erreur, 
le programme objet peut alors être exécuté comme un 
simple programme en langage machine. Mais ici, plus 
question des facilités offertes par l'interpréteur... 
Le programme objet n'étant pas modifiable facilement, 
chaque correction du programme source devra être 
suivie d'une nouvelle compilation. Parfois, certains 
objets nécessitent l'emploi d'un programme "exécu- 
teur" pour pouvoir être lancés. Ce dernier contient 
généralement l'ensemble des sous-programmes les plus 
usuels dont peut avoir besoin le programme objet. 
Parfois encore (Pascal ou CBASIC par exemple), le 
compilateur ne produit pas directement un objet en 
langage machine mais en “pseudo-code", appelé aussi 
code intermédiaire, et dont la seule raison d'être 
se réclame d'une éventuelle (mais utopique, semble- 
t-il) transportabilité entre différents ordinateurs. 
L'exécuteur prend alors la forme d'un interpréteur 
simplifié... et le compilateur se nomme à juste ti- 
tre "pseudo-compilateur". Un peu embrouiilé, tout 
cela ! 


. 


Mais revenons un peu en arrière. Avant de compiler un 
programme, il faut l'écrire. or nous avons vus qu'il 
devait être disponible sur disquette. Si on a l'in- 
terpréteur sous la main (ce qui n'est pas toujours 
le cas), il suffira de sauver le programme BASIC au 
format ASCII (option SAVE "nom",A) qui est la seule 
Forme acceptée par le compilateur. On peut aussi 
utiliser un autre programme nommé éditeur , qui a 
pour rôle de créer des programmes source ou de les 
modifier, et ceci indépendamment du langage dans le- 
quel ils sont écrits. À la limite, cela peut être 

un simple texte en français ! L'éditeur, vous en avez 
déjà un avant-goût avec la commande EDIT de l'inter- 
préteur BASIC. Il comportera toujours des ordres per- 
mettant la manipulation d'un texte : recherche d'un 
mot, insertion, suppression d'un mot, d'une ligne ou 
d'un paragraphe, etc... On distingue les éditeurs 
“ligne" qui n'opèrent que sur une seule ligne à la 
fois (les plus courants mais les moins pratiques), 
et les éditeurs "page" (ou "écran") avec lesquels 

on peut déplacer le curseur dans le texte source et 
apporter facilement les modifications désirées qui 
s'effectuent du reste instantanément sous les yeux de 
l'opérateur. Ils ressemblent en cela aux programmes 
de traitement de texte (Scripsit, par exemple) mais 
sous une forme plus simple, et dénuée des critères 
d'édition que possèdent ceux-ci (pas de notions de 
cadrage, de justification, de coupure de mot...). 
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Il ne faut pas confondre éditeur de textes et édi- 
teur de liens. Ce dernier, appelé LINKER en anglais 
(chaineur), a pour fonction principale de calculer 
et d'établir des "liens" entre différents programmes 
issus d'un ou de plusieurs compilateurs. Cette nou- 
velle phase s'intercale donc souvent entre la phase 
compilation et la phase exécution. Dans ce cas-là, 
les objets" délivrés par les compilateurs ne sont 
pas directement executables et sont dits "transla- 
tables", c'est-à-dire peuvent être placés n'importe 
où en mémoire. Ce n'est que lorsque l'éditeur de 
liens connaît la taille et l'emplacement des objets 
à fusionner qu'il peut procéder au calcul des adre- 
ses à rendre absolues avant exécution. Mais revenons 
au premier rôle de l'éditeur de liens en prenant en 
exemple. k 





On désire écrire un programme en BASIC, parce que 
c'est un langage facile à apprendre et simple d'em- 
ploi, mais on a deux impératifs : une certaine por- 
tion de ce programme doit contrôler un organe péri- 
phérique rapide (et il vaudrait donc mieux l'écrire 
en assembleur) ; par ailleurs, une autre portion du 
programme nécessite des calculs scientifiques forts 
complexes et il semble qu'une routine écrite en FOR- 
TRAN réalise justement cette fonction. La solution 
est donc d'écrire le programme principal en BASIC 
(avec l'éditeur de textes) et de le compiler (avec 

le compilateur BASIC) ; d'écrire la routine en as- 
sembleur (éditeur) et de l'assembler (assembleur) ; 
de compiler la routine FORTRAN (compilateur FORTRAN): 
L'éditeur de liens permettra alors de rassembler ces 
trois programmes en un seul, en calculant les liens 
utilisés pour dialoguer entre eux (CALL). Le program- 
me résultant pourra alors être exécuté. 

Bien entendu, il est nécessaire de s'assurer que les 
compilateurs BASIC et FORTRAN, ainsi que l'assembleur, 
délivrent un format objet compatible avec celui qui 
est attendu de l'éditeur de liens... Microsoft par 
exemple, propose : EDIT-80 (éditeur), F80 (compila- 
teur FORTRAN), BASCOM (compilateur BASIC), M80 (ma- 
cro-assembleur), C80 (compilateur COBOL) et L80 (lin- 
ker). Et il semble que tout ce monde-là fasse bon 
ménage ! 


Nous venons de parler de l'assembleur. Il s'agit 
d'un autre programme du genre compilateur, qui tra- 
duit des instructions symboliques (programme source) 
en instructions "machine". Ainsi, si l'on écrit 
l'instruction symbolique "PUSH HL" dans le programme 
source, l'assembleur traduira cela par le code binai- 
re 11100101, soit E5H dans la représentation hexadé- 
cimale. C'est tout de même plus clair (pour l'homme) 
d'écrire "PUSH HL"' que "11100101", non ? 

Bien entendu, l'assembleur offre un tas de petits 
services annexes, comme par exemple, l'adressage à 
des étiquettes symboliques, les macro-instructions, 
etc... pour lesquels nous ne pouvons pas trop entrer 
ici dans les détails. 


Le désassembleur ? C'est un programme (un autre !) 
qui effectue l'opération inverse ! On part d'un code 
binaire (celui situé dans une mémoire morte, par 
exemple), et on retrouve les instructions symboli- 
ques : ESH nous redonnera "PUSH HL"... L'ennui, 

c'est que le désassembleur ne sait pas faire la dif- 
férence entre le code exécutable et les données (un 
texte en ASCII, par exemple), et il va donc tout 
traduire en instructions symboliques... même si cela 
ne veut rien dire ! C'est là où le programmeur averti 
intervient en ajoutant des commentaires aux lignes 
pour essayer de comprendre... Cela, aucun ordinateur, 
aussi puissant soit-il, n'est capable de le faire 
aujourd'hui ! 


Alain Pinaud 


professionnel 
Calculez 





vos amortissements 





La fin de l'année est l'époque des écritures d'inven- 
taire en comptabilité ; c'est celle aussi de l'arrêt 
des comptes et des bilans. 


Parmi les écritures comptables de fin d'exercice, 
figure le calcul des "amortissements". 


Il s'agit de sommes qui vont venir diminuer les bé- 
néfices ; comme elles vont également venir diminuer 
le bénéfice soumis à l'impôt, il est inutile de pré- 
ciser que les comptables d'entreprises voire les di- 
rigeants de P.M.E. ou P.M.I. ont tout intérêt à les 
calculer sans commettre d'erreurs. 


Or précisément, il s'agit de calculs longs, monoto- 
nes prompts à endormir la vigilance naturelle des 
intéressés, 


C'ést donc là où le TRS doit faire la preuve (s'il 
en est encore besoin) qu'il est la plus belle con- 
quête de l'homme après le cheval... en réparant les 
conséquences d'une somnolence, momentanée et excusa- 
ble, pendant le calcul d'un amortissement. 


Mais au fait qu'est-ce que "l'amortissement" ? 


Intuitivement, on imagine sans peine qu'il a pour 
mission de constater un vieillissement. 


Mais il doit également constater la perte de valeur 
par suite de l'évolution des techniques ou tout sim- 
plement la mode ou "l'obsolescence" pour parler com- 
me les gens savants. 


Pour le calculer, on commence par se donner au dé- 
part pour le matériel que l'on vient d'acquérir (un 
TRS80 par exemple !!), la durée probable d'utilisa- 
tion. Celle-ci sera, comme nous l'avons dit plus 
haut, fonction de l'usure mais aussi de l'évolution 
des techniques qui feront qu'un jour, ce matériel ne 
vaudra plus rien. (Pour le TRS80, la durée en cause 
sera laissée à l'appréciation de chacun...). 


Tous les ans, pendant cette durée, on va, en père de 
famille prudent, mettre de côté une somme qui bout à 
bout permettra en fin de durée d'utilisation de ra- 
cheter pour le même prix un matériel identique. 


Le Fisc admet (Oh ! surprise...) que l'on ne paye 
pas d'impôt sur cette épargne annuelle et qu'elle 
puisse donc, chaque année, venir diminuer les béné- 
fices taxables. Mais soupçonneux et impitoyable, il 
veille au grain et gare à ceux qui se sont, à son 
détriment, trompés "par hasard"! dans leurs calculs 
(même par TRS interposé)... 


Donc, partant de la durée probable de vie d'un maté- 
riel, (notre TRS de tout à l'heure), nous détermine- 
rons un taux qui, appliqué au prix d'origine du ma- 
tériel, nous donnera chaque année le montant de l'a- 
mortissement déductible des bénéfices. 


Par exemple, un matériel qui est appelé à durer dix 
ans aura un amortissement annuel de 1/10 ou 10 %. 


Un matériel qui va durer cinq ans aura un amortisse- 
ment annuel de 1/5 soit 20 %. 


C'est-à-dire que chaque année, le matériel perd de 
sa valeur soit dans notre dernier exemple, 1/5 (ou 


20 %) ; sa valeur, (que l'on appelle alors "Valeur 
résiduelle comptable"), est amputée chaque année du 
montant de l'amortissement annuel pour atteindre une 
valeur nulle à la fin de la durée qui avait été préa- 
lablement fixée. 


Mais, direz-vous, cet amortissement est le même cha- 
que année ? 


Ce n'est pas réaliste car, dans la pratique, il est 
bien connu que le matériel se déprécie beaucoup la 
première année et moins les années suivantes ; c'est 
le cas des voitures et il suffit de jeter un coup 
d'oeil sur l'Argus pour le constater. 


Certes, voilà la source d'innombrables programmes 
qui restent à écrire pour constater le vieillisse- 
ment réel économique des matériels et déterminer 
leur valeur résiduelle annuelle en fonction de l'é- 
volution de leur environnement, de leur usure ou de 
leur inadaptation voire en incluant la montée des 
prix pendant la durée de leur utilisation. Ces pro- 
grammes ne manqueront pas d'intérêt à une époque où 
sévit un impôt sur la fortune qui s'applique égale- 
ment à l'outil de travail. 


Notre programme est beaucoup moins ambitieux. Il se 
borne à calculer un amortissement constant (appelé 
par le Code général des impôts : "Amortissement li- 
néaire") suivant les directives légales en vigueur. 


Ce programme calcule la réduction de l'amortissement 
annuel la première année d'acquisition, dans l'hypo- 
thèse où le matériel a été acquis en cours d'année ; 
cette réduction que l'on appelle "Prorata temporis" 
est proportionnelle au nombre de mois pendant les- 
quels le matériel n'était pas encore en service. 


Ce programme fournit pour chaque année l'amortisse- 

ment annuel, le montant des amortissements cumulés, 

la valeur résiduelle comptable après avoir reproduit 
le détail des données. 


A la fin du programme, nous avons reproduit les ré- 
sultats obtenus dans deux hypothèses différentes. 
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guration d'essai modele 1 ou 3: niveau 2 


BMME DE CALCUL D'AMORTISSEMENTS 
1987 TRACE et Pierre Lheritier 


LEAR 1000:REM83 
USS=THHAHHARERE. HE: 
AN TT PURE TERRES 


TAB(12):STRINGH(31:"-"):R 

REMED 

A2C:2D:E:F28 DEFINT K:P2R2T:REMD3 

“>>>»>>>>> FRAPPER :° PRINT:REM&Z 

*— LA NATURE DE L'IMOBILISATION ----} “;:A$:REMED 
INPUT *- LE PRIX DE REVIENT SA : 

“- LE MONTANT DES AMORTISSEMENTS ANTERIEURS ----} 


mn 


<0 THEN 190:REMDOR 

IF C?ON THEN 250 ELSE 200:REM23 

PCAEST IR OPEMEVERTETER VAR 
INPUT ‘- LE MOIS D'ENTREE EN 
THEN 220 ELSE £Z40:REMS3 
EU FAITES DONC ATTENTION. 


# 


GOTO 
CHIFFRES 


180:RENF 7 
==} "3)RIREMEF 
RECOMMENCER ----} :°:REM 

GOTO 200:REMOF 

INPUT “- L'ANNEE CONCERNEE ----3 19,..,":P:REN7E 

INPUT “- LE TAUX D'AMORTISSEMENT ----} "3;3T:REM7é 
THEN 250 ELSE PRINT B={i13-R)a2T/12:REMBS 

ù #:REMDS 

AU DEPART EST 


en 
E = 


. 
? 


°LE TAUX EFFECTIF 
19=RT 712 55: 
32323233 POUR CONTINUER 


DE :* + 
PRINT:REM4C 
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{N)"1REMZC 


EVE 
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Ê 
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IF J$="" THEN 
THEN 340 ELSE IF 
PRINT STRING$(62:"#") 
A*E)+x,.01 E=D+C:REMI1 
PRINT “NATURE DE L'IMMOBRILISATION 
“PRIX DE REVIENT #3 
“MOIS D'ENTREE :°35R 


319 :REMOF 
J$<>°N" THEN S10:RENM9F 
GOTS 140-:RENDZ 

: “3ASIREMZE 
USING U7HSAIREMSS 

ï PRINT "L'ANNEE DE DEPART 
TAB(Z2) USING “##°3P:REMEB4 
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FNO"3TAB(S) ANNEE": TAR( 18) "ANNUITE ‘; :REM9S 
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FIUSING U7#3C:REMCS 


-1:TAB(S5)"19"3:TAB(7) 
TAB(31) USING U9#:çC;: 


USING. "##":P-13::REMD4 
PRINT TAB(S1) USING U9#:A-C:REME 
*17"3TAE(7) 


) USING "##”:P::REMCO 
USING UO$#s:D: 


PRINT TAB(31) USING US$:E::REM7S 
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USING U9$;A-E:REMF7 

F C>0 THEN K=K-1:REM2C 

INTIAXT)+,.01 5=5+D:REMDé 
ë S=A:REMA2 
PRINT-TAB{#7? 
PRINT FTAR(31) 


L 
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1800+P+I::REM20 
USING US$:S;:REM2D 
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TAB(15) 

TAELT5) USING EUGS:S—C 
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*? THEN 7O:REM3E 


I:REMCI 
PRINT ‘ 
FRINT:REMAD 
FRAPPER <ENTER} 


NEXT 
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NATURE DE L'IMMOBILISATION : Casa 

PRIX DE REVIENT : i5000.00 

MOIS D'ENTREE : 1 

L'ANNEE DE DEPART : 198? ; 

LA DUREE PROBABLE D'UTILISATION EST DE : #4 & 
PESTAUX EF FECITESAUNDEPARI EST PRESS À 
-.. ENSUITE 55 # 

AMORTISSEMENTS ANTERIEURS : 250.00 








VALEUR RESIDUELLE 
È 14150.00 
0 1987 .o0 4600.00 10400.00 
1 1983 :00 8350.00 &ë50.00 
3 1984 .a0 12100.00 2900.00 
3 1985 00 15000.00 0.00 
TOTAL= o0 
NATURE DE L'IMMOBILISATION : CASA 
PRIX DE REVIENT : 1800.00 
MOIS D'ENTREE : 6 
L'ANNEE DE DEFART : 1982 
LA DUREE PROBABLE D'UTILISATION EST DE : 4 ANNEES 
LE TAUX EFFECTIF AU DEPART EST DE : 25 % X 7 /12= 14.5893 % 
-.. ENSUITE 25 4 
AMORTISSEMENTS ANTERIEURS : 0.00 
NO ANNEE ANNUITE CUMULES VALEUR RESIDUELLE 
1 ai 0.00 1800.00 
ü 1987 262.5 262.50 1537.50 
1 1983 450.00 712.50 1087.5 
2 41984 250.00 1167.50 637.50 
3 1985 450.00 1617.50 187.50 
4 1786 187.5 1800.00 0.00 
TOTAL= 1800.00 





programme 


Pierre Lhéritier 








Améliorez 


vos tracés de courbes 


Le graphisme sur écran est très souvent utilisé non 
seulement dans les jeux et les programmes à voca- 
tion artistique, mais aussi et surtout dans les ap- 
plications techniques ou de gestion. Pour être plei- 
nement utilisables, ces graphiques nécessitent un 
calibrage rigoureux des paramètres, avec des échel- 
les bien définies et aisément lisibles. 


Le programme décrit permet le tracé en coordonnées 
rectangulaires, de la plupart des courbes définies 
par une fonction Y=F(X) au travers d'une grille com- 
plétée par l'échelle des Y à gauche de l'écran, et 
par celle des X sur une ligne au bas de l'écran. 


Ce programme a été écrit sur TRS-80 Modèle 1, Niveau 
II et utilisé (et affiné) depuis trois ans dans de 


nombreuses applications d'aide à la conception de 
circuits électroniques. 


La pauvreté relative du graphisme est largement com- 
pensée par le saisissant effet de loupe obtenu en 
réduisant la taille des échelles des coordonnées. 
Ces échelles peuvent être redéfinies par l'utilisa- 
teur autant de fois qu'il le désire. 


En prime, le programme offre à celui qui dispose 
d'une imprimante compatible, une option HARD COPY 
(copie sur papier) de la page d'écran. 


Le programme comprend huit modules superposés. 


Si vous répondez "N" à la question de la ligne 119, 
la liste des lignes 1999 et suivantes est affichée, 
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et vous êtes mis en demeure d'écrire la sous-routine 
de votre fonction Y-F(X) ainsi que le nom de cette 
fonction dans une ligne DATA. 

Si la réponse est "O" ou plus simplement ENTER, le 
nom de la fonction est lu dans T$ et affiché à l'é- 
cran. 


Vous êtes ensuite invité à entrer les limites de 
l'échelle de X, XI=MINImum et XS=MAXImum. Puis 
l'ordinateur effectue le calcul pas-à-pas des Y par 
191 passages dans la sous-routine 2909, et les mé- 
morise dans un tableau Y ( ). 

Les valeurs Yi=minimum et Y2=maximum de Y sont re- 
cherchées ainsi que les valeurs correspondantes de 
X, NI et NS. 

Le décompte du nombre de pas restant à calculer est 
affiché dans le coin inférieur gauche de l'écran 
(pour vous aider à patienter). 


L'échelle des y est ensuite demandée, après affi- 


Les 

1 Configuration tyre modele Âr 16K7 niveau 2 xx FF 
2 {C) TRACE et l'auteur **x FE 
SEA *x FD : 
AUS GRAPHIQUE CALIBRE D'UNE FONCTION Y = FX) +*x Fé € 
30 AUTEUR : RÔGER BROUSMICHE ## EC f 
30 Lg D 
40 * X##44# ENTREE EN MATIERE *xxxxxx DS 
S0 CLEAR -300 : DEFINT I:J J3=109 DIM Y(J3)2Y1(J3):REM6S 
80 ÉLS 2 PRINT PRINT TABié) 

2GuR ANPOH-7 Q\UNE CEA MESTRERR SE DE Ve REX ISREM ST 
70 PRINT : PRINT PRINT:REM30O 
80 INPUT “LA FONCTION Y = F(X) EST-ELLE ECRITE (O/N) "3A#:REMBD 
00 IF LEFTS(A$21)=°N" THEN CLS GOTO 1760:REMCO 
100 READ T$ : T$= LEFTS (T#260) : Jâ=(60- LEN (T$)1)/2:REME2 
110 PRINT PRINT PRINT TAB(JA)3 T$ PRINT:REMFS 
125 ##x#vxx ECHELLE DES X +xxkxsxx E8 4 
130 Y1=1E28:Y2=-4E08 : PRINT : PRINT “ENTREZ LES LIMITES DE X°:R 
EM25 
140 INPUT *X MINI = ”3XI:REMO9 
150 INPUT ?X MAXI = ":XS:REMF3 
160 FOR I=0 TO J3 : X=XI+(XS-XYI)\*1/J3 : GOSUE 2000 Y(I)=Y:REMC 
ñ SOy, 
170 IF Y<Yi THEN Yi=zY : NI=X:REMSE r © LS 
180 IF Y>Y? THEN Y2=Y NS=X:REN7A & = 
190 PRINT à 9407 J3-1: : NEXT I:REMAC 6 A 
200 HYH#X#ES ECHELLE DES YŸ #x##%x 98 1 l 
210 PRINT : PRINT ‘Y MINI = "Yi® POUR X = "NI:REM49 = 
220 PRINT "Y MAXI = ‘Y2* POUR X = "NS:REMIE 
530 PRINT ‘ENTREZ LES LIMITES DE Y” : INPUT ©Y MINI = "3YI:REMCE 
240 INPUT “Y MAXI = ":YS : FOR I=0 TO J3 : Y1(I)=Y(I):REM2E 
250 IF YCI)£YI THEN YA(I)=YI ELSE IF YCI)2>YS THEN Y1(I)=YS:REM67 
2860 NEXT I:REMEE 
70e #x###x ECRITURE DE LA GRILLE ET DES ECHELLES ##x### F 
1 
380 CLS : PRINT TAB(JA)3 T$:REMS4 
290 FOR I=72 TO 842 STEP 6# PRINT à I: STRINGS (517°.")3:REM4F 
300 FOR J=0 T9 51 STEP 5 PRINT à I+J:"!*3 : NEXT J21:REM0/ 
310 PRINT 4 896; * YL X":CHR$(74)::REM89 
320 FOR I=0 TO 12 Y=YS-(YS-YI)+*1/12:REMI6 - 
330 Y$=STRS(Y) IF LEN(Y#)€9 THEN Y$#=STRINGS(8-LENCYS):" ")+Y$: 
REM7A 
340 PRINT Q 6é4+b4#l: Y$ : NEXT I:REMI2 È 
350 FOR I=0 T0 5 X=XI+(XS-XI)*1/5:REM83 
380 PRINT à 903+]I#10r STR$(X)3 : NEXT I:REMBS Ÿ 
370 #X#x44x TRACE DE LA COURBE +%x#xxx  OD 
980 FOR CI=-0 TO 19 +: JI=INR(é-S+36#(YS-Y LI) )/2CYS-VI))IREMER 
9390 IF I=0 OR (J1>=JB AND Ji<=JH) THEN JB=J1 : JH=JB:REM6E 
400 IF JjJi<JE THEN JH=JH-1 : JB=Ji 
410 IF J1>JH THEN JE=JH+1 : JH=J1:REMIE 
420 FOR J=JB TO JH : SET (I+i6rJj) * NEXT J2I2:REMSF 
AEILSN +eæxes MENU TERMINAL #%##xxx 51 
440 PRINT à Ybë&? 


CI) MPRIMER 7 N 
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chage des valeurs précedemment trouvées pour Y1,Y2, 
NI et NS. 

Après avoir fixé les valeurs YI=MINImum et YS-MAXI- 
mum de Y, le tableau Y( ) est recopié dans un ta- 
bleau Y1 ( ), les valeurs extérieures aux limites 
étant remplacées par ces limites. 


Enfin, après un CLS, sont successivement écrits à 
l'écran le nom de la fonction, la grille, les échel- 
les Y et X, et pour finir, le tracé de la courbe. 


L'accès aux options du Menu terminal 430-500, écrit 
sur la dernière ligne, est réalisé par l'instruction 
INKEYS . 

L'option (I)MPRIMER délivre une copie sur papier de 
la page d'écran (sous-routine 520-560 après un son- 
dage positif du PEEK (14318) qui détecte la dispo- 
nibilité de l'imprimante. Les autres options du 

Menu proposent une redéfinition de l'échelle X ou 

Y, ou la fin du programme. 





» 


OUVELLE ECHELLE (X) OU (Y) 7 OU {FIIN ? 


D? : GOTO 440 :RE 





(632"-"):REM10 


KKKKKX 5E 


EN LIGNE 20090":REMOD 


PRINT "2020 DATA ‘; 


5 CHR$ (14) ::REM99 
450 À$= INKEYS : IF A$="" THEN 450 :REM9D 
#60 IF A$="1" PRINT 4$ ; CHR$(15) ; GOSUE 
ME 1 
470 IF A$="X" PRINT A$ GOTO 130 :REMS? 
480 IF A$="Y" PRINT àS GOTO Z10 ‘:’REM48 
490 IF A$="F" PRINT A$ END:REMF 1 
500 GOTO 450 :REMES 
TUE KÉ##X## HARD COPY +xxxxxx Di 
520 IF PEEK (14917) 3127 THEN 560 :REM63 
530 FOR I=0 TO 14 : FOR J=0 TO 43:REMCE 
540 LPRINT CHR$ ( PEEK (15340+1*64+J))3:REM1S 
DA eNENUTE ÉPRINT * NEXT I LPRINT STRINGS 
560 RETURN:REM3C 
1930 X#X#%%  GOUS-ROUTINE Y=F(X) DE L'USAGER 
1960 PRINT "ECRIVEZ LA FONCTION Y=F(X) 
1970 PRINT "ECRIVEZ LE NOM DE LA FONCTION DANS LA LIGNE DATA ?0? 
O°:REM48 
1980 PRINT "FAIRE ‘RUN'"* PRINT READ T$:REM74 
1920 PRINT 2FXEMPÉE 2; pRINT "2000 sr 
CHR#(34):T$:CHR#S (34) END:REMFF 


2000 Y=1.27324x(COS(X)-COS(X*x3)/B+C0S(X*5)/5) :REM33 


2910 RETURN:REMSD 


2020 DATA "Y = 4/PI ({ COS X - 


Y = 4/PI C COS X - 1/3 COS 3X + 1/5 COS 5X ) 









ne 
=! 
Û ! ; 


+. 
LECLERC ETEETE TROT TE 





or 


La figure 1 représente, avec une échelle normale, 
la courbe de la fonction Y=F(X) choisie à titre 
d'exemple. 


Y = 4/PI € COS X — 1/3 COS SX + 1/5 COS SX ) 
1.104 1... solar louss ! 


1.188575! on 0 10 0 « e ! 








fous! 
1102751. locuolau x 
5 L'ART EC ES 
1.182251... 


1.181 
Y b -.& 


Fig. 2 


A l'aide du "microscope" incorporé au programme, 

on en tire la figure 2 qui montre le centre de la 
figure 1 magnifié 199 fois en horizontal et 1000 

fois en vertical. 


14/3 COS SX + 1/5 COS -5X )'REMC7 


Y = &/PI ( COS X - 1/3 CDS 3X + 1/5 COS 5X ) 












DE re este. 
CRECPREEEPREEREELERSS, CRE EREEESREES SERRES ESS EE 


; 

y 
ES 1... 

3 





15788 15712 1.916 1.572 


Fig 4 


Plus fort encore ; en poussant l'agrandissement à 
5000 fois dans chaque direction, on obtient la fi- 
gure 3 qui, sans aucune ambiguité donne la valeur 
d'une racine de Y, c'est-à-dire X=1.57@8-Pi/2 pour 
Y=Q (pour mémoire Pi=3.1416). 


Pour terminer, un mot au sujet du choix des échel- 
les. On obtiendra en général de bons résultats lors- 
que la taille de l'échelle X divisée par 5, et celle 
de Y divisée par 12, représentent des nombres sim- 
ples, ne comportant pas plus de 2 chiffres signifi- 
catifs. Autrement, il faut s'attendre à lire des 
nombres farfelus... 


————————————————————————————— Roger Brousmiche 
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jeu 





Et bien, jonglez maintenant 





Vous avez probablement déjà vu à la télévision ou 
au cirque, ces jongleurs qui font tourner des as- 
siettes sur des tiges de bambou ? 


Nous vous proposons aujourd'hui de faire connaissan- 
ce avec cette saine distraction, mais sans risque de 
casse ! Qui osera dire après que l'ordinateur ne fait 
pas faire des économies ! 


Le principe est fort simple : vous démarrez le jeu 
avec neuf assiettes tournant à pleine vitesse sur 


Pr 
NI 


10 ’-- CONFIGURATION TYPE 
DOMSET 

30 CLS:REMSE 

40 PRINT” 

ASSIETTES 

RRELKEKEEX 


OÙ COMMEMT APPRENDRE 4 TAPER 
LES YEUX (CRRESOUEY) RERMES 


NESTOR PERBERUT 
ALIAS 

ATTAL JEAN-CLAUDE 
“:REME7 

50 ‘ Copyrisht 
ô0 | Fa 
70 
50 
30 


*REMS7 
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TRACE et l'auteur 


neuf tiges de bambou. Au fur et à mesure que le temps 
passe, la vitesse de rotation des assiettes diminue 
et, lorsqu'elle arrive à trente tours par minute, 
l'assiette tombe... Vous devez donc veiller sans 
cesse à entretenir le mouvement de façon à éviter 
cette conclusion fatidique, en pressant un chiffre 
compris entre 1 et 9, correspondant au numéro de 
l'assiette en péril. 


Ce n'est qu'après seulement, que vous pourrez envi- 
sager de vous entraîner sur de vraies assiettes...! 





250 
240 
270 
AMBQOU.":REMD1 


280 
290 


LS D 
— 7 310 
LE MT 
330 
340 
350 
360 
370 
80 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
52 
530 
540 
550 
560 
570 
520 
590 
600 
610 
620 
630 


INT(ZENI I”. 


640 
850 
680 
&70 
88n 
890 
700 
710 





ni MN _ 








CLEAR 150 
DEFINT 
DIM A(9) 





À 
ic 
ti 
in 


SELON LS PÉRTIE DU CLAVIER 81 


CE: HRS(CO+9) :REMD à A 
CR$=CHRSID4)1REM1A : 
CCS=CHR#S(143:REMED se 
x RND V'RE k LA 
G NEXT: REM9D NS F 
Pa << 
Ne 


CLS:REMSC HR 
PRINT TAB(28):"ASSIETIES":REMDA 

PRINT:REM49 

PRINT "VOUS DEVEZ FAIRE TOURNER VOS ASSIETTES SUR © TIGES DE E 









PRINT TAB{11)3"A4 TRENTE TOURS/MINUTE;:; ELLES TOMHBENT.":8EMDé 
PRINT:REMZE 

PRINT TAB(21)3 STRINGS(227"#"31:RÈMEE 

PRINT TAB(21):"# NIVEAU = +":REMF7 

PRINT STRINGS (64 2 "#")::REMRS 
PRINT'+*"::REMSA 

FOR x=1 TO S:REHDS 

PRINT * FiCHRSCCOH+X)3" "3: 
Ds Le 

PRINT "SSTRINGS(67 
PRINT FsTAB(63): "+ 
PRINT ":TAB(62):* 
PRINT STRING (BEI ÿ 
PRINT à 8898: "QUELLE TIGE DE 







NI=NI+.1:REM18 

PRINT 4 421; INTIZINI)::REM8A 
PRINT à 932;:° ";:REMFS 
AS=INKEYH:REMTS 

IF A$>C98 OR AS<C1$ LE Si0:REMBA 
AtASC(E = 120 RAD :REHB1 
PRINT CRé: AS::REMCS RS 
PE=0:REM&7 ; 

TA=634:REMEF = 

FOR X=1 TO 9:REM17 
AUX)=ALXI-C1+RND(D))ENIIREMS7 
Té=TA+7:REMDS 

PRINT à TAr" “:INT(A(X)) 5 :REM4E 
IF A(X)<30 THEN PEz=X: X=9:REMES 
NEXT X:REMDE 

IF PE=0 THEN 440:REM2S 






a FIN UNE ASSIETTE EST TOMBEE 80 
PRINT à 836» STRINGS(40»" “)3:REMAY 

PRINT à 2° >"CHUTE DE L'ASSIETTE " CHR$(CO+PE)" 7 AU NIVEAU 
TRE PARTIE <O/N> ? "5:REMES 






= D ©: 


ir ee 

PRINT CR$::REMCE 5 

IF CU=32 THEN CU=143: PRINT CC$: ELSE CU=32: PRINT ? "3:REMSD 
TP=TP+11REM4S 

IF TP>36 THEN 640 ‘ TP=TEMPO CLIGNOTEMENT 82 
AS=INKEYS:REM49 

IF AS£"N® THEN 670:REM?7F 


IF â$="0" THEN 110:REH@0 Dos 
{ a 


Su S 


Jean-Claude Attal 
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utilitaire 





Des ou'i s pour 
votre programmation (II) 


Le code machine du Z80, bien que possédant quelques 
instructions adéquates, n'est pas à proprement par- 
ler "relogeable". Cela signifie qu'un programme à 
priori quelconque écrit en assembleur ne pourra être 
exécuté qu'à l'adresse mémoire pour laquelle il a été 
assemblé (directive ORG de l'assembleur). Ainsi, le 
code machine du programme de la figure 1 ne pourra 
être exécuté qu'à partir de l'adresse 7E00H. Si par 
curiosité nous changeons son origine (ORG 7FOOH par 


00010 7EO0DH 
00020 
00030 
00040 
00050 
00066 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
09240 


ELANC 
HL:TEXT 
DE:MIL 
HC:LG 


&CCH 
Routine de 
LANC LD 
PUSH 
POP 
DEC 
LD 
LD 


LDIR 
RET 


DE 
HL 
HL 


BC21023 


DEFM 


EQU $-TEXT 


END ESSAI 


Ne sortez pas déjà vos mouchoirs : il y a heureuse- 
ment plusieurs solutions à ce problème ! L'une d'el- 
les consiste - au moment de l'écriture du programme 
source - à dresser une table contenant les valeurs 
à retoucher avant exécution. Notre programme initial 
prendra alors l'allure de celui donné en figure 2. 
Notez que les valeurs à retoucher sont les octets 


DE 23C01H 


3CO0H+512+32 ; 


UN ON Un 8 NO 4 


mise à bianc 








exemple), nous voyons que les codes générés par les 
instructions "CALL BLANC" et "LD HL, TEXT" ont été 
modifiés d'une valeur égale à la différence entre 
les deux origines. Aussi, si nous devons (pour une 
cause quelconque) déplacer notre programme initial 
d'une valeur relative delta , nous ne pourrons 
l'exécuter correctement qu'après avoir ajouté ou re- 
tranché cette même valeur aux codes générés par les 
deux instructions "CALL BLANC" et "LD HL, TEXT". 


milieu ecran 
mise à blanc ecran 
adresse texte a afficher 
en milieu d'ecran 
longueur texte 

transfert memoire 

retour au BASIC 


de l'ecran 


(HL) 20FFH 


COUCOU" 


+1 et +2 des adresses pointées par chaque élément de 
la table (deux dans notre cas), celle-ci se terminant 
par un double zéro. Naturellement, le programme s'en 
trouve allongé mais cela n'a que peu d'importance 
puisqu'après l'opération de "relogement", il retrou- 
vera sa taille primitive, la table n'étant plus d'au- 
cune utilité. 





00010 ORG 7EO0O0H 

00020 MIL EQU 3CO0H+512+32 ; milieu ecran 
00030 ESSAI CALL BLANC ; mise a blanc ecran 

00040 REL1 LD HL:TEXT 3 adresse texte a afficher 
00050 LD DE?MIL 5 en milieu d'ecran 

00040 LD EC:LG ;: longueur texte 

00070 LDIR ;: transfert memoire 

00080 JP &CCH : retour au BASIC 
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00090 ; 


00100 ; Routine de mise a blanc de l'ecran 
NnD110 ; 
O01:0 BLANC LD DE3CD0iH 


CHL) :O0FFH 
BC:1023 


COUCOU RE 
$-TEXTF 


TEXT 
LG 


ESSAI 3 
RELT 
0000 5 
ESSAI 


TABREL Table de relosgement 


fin de la table 





plus difficile que de calculer la vitesse relative 
entre deux trains ! Vous voulez l'utilitaire en ques- 
tion ? Il se trouve à la figure 3... Nous n'en par- 
lerons pas davantage pour l'instant mais nous le res- 
sortirons de nos cartons lorsque nous aborderons le 
programme moniteur BASPY. 


Le programme étant ainsi écrit dès sa conception, il 
suffira ensuite de faire appel à un utilitaire écrit 
spécialement dans ce but, en lui fournissant l'adres- 
se de la table de relogement et la valeur delta 
(différence entre l'adresse d'implantation et l'adres- 
se d'exécution). Enfin...! Ne dites pas que c'est 


00010 
00020 
00030 


00040 
00050 


00060 
00070 
00080 


UTILITAIRE DE RELOGEMENT 
(Peut etre ecrit en relatif) 


En entree : HL = adresse absolue de 
la table de relogement 
DE 


<delta> 


HS MN tn cam 0 on 


ms) 
rm 
F- 
Les] 


00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 


HL 
HL 


IX 


Er CEXE1) 


B:L 
â 


Z2FINREF 
H2(IX+2) 


HL DE 
HL 

IT 

ER DS dd 


) 


Hat iTE2) 


HL DE 
CIVFT > 
CINE 
IX 

IX 

SREF 


FINREF $ 


L 
H 


MU OMS NN MN MU ON IN AN 0 UN 8 38 


MIN OS MU NN MM 00 sn 


ME 40 0m 


pointe table -1 
sause adr table 
dans IX 


Si zero: fin table 


element table dans HL 
on ajoute delta 


on Passe dans IY 


HL=ualeur a reloger 


on lui ajoute delta 
et on la replace 
element suivant 

de la table 

et suite... 

c'est fini 





TRACE N° 4 - Janvier 1983 - 37 


GOTO 3 


3 


--- {contient le Programme 


principal en code machine» --- 


A=PEEK(16548)+256%xPEEK (16549) 
IF A>32767 THEN A=A-85538 


IF PEEK(A+2)=7 THEN 46 ELSE A=PEEK(A) 


+296*PEEK(A+1) 
POKE A+S5:PEEK(16414) 
A1=INT((A+4)/256) 
POKE 16415:A1 


POKE A+6:PEEK(16415) 
POKE 1641470+4-A1%256 
! Ess: !) 


*---£ routine d'initialisation 


en code machine 


Mais nous profiterons de cet enchaînement pour dé- 
tailler la structure adoptée pour l'écriture de 
BASPY. Le "cheval de Troie" qui va nous permettre 

de passer inaperçus aux yeux de l'interpréteur pos- 
sède 5 lignes de "vrai" BASIC et deux lignes" de 
langage machine comprenant à elles deux quelques 

1500 octets de code... (voir figure 4), le tout écrit 
en äassembleur selon la méthode décrite dans le numé- 
ro 3 de TRACE. Lorsque nous vous disions qu'une li- 
gne BASIC peut parfois être plus longue que prévu ! 
La ligne 2 en langage machine est le programme moni- 
teur proprement dit ; la ligne 7 est la séquence 
d'initialisation (relogement de la ligne 2 en parti- 
culier). Comme nous l'avons déjà signalé, cette 
structure permet un grand confort d'utilisation puis- 
que le programme se charge comme un vulgaire program- 
me BASIC, s'implante là où il y a de la place et 
s'auto-protège (placé avant le "buffer" BASIC). Le 
programme étant initialisé, il ne restera plus en 
mémoire que les deux premières lignes, c'est-à-dire 
le principal ! 


La ligne 1 n'est là que pour sauter la ligne 2(c'est 


préférable !). La ligne 3 calcule l'adresse de début 
du "buffer" BASIC contenue dans les cases mémoire 


bricolage 





LOAUH et UOASH. La ligne 4 réajuste cette valeur pour 
la rendre entière (comprise entre 32767 et -32768). 
La ligne 5 recherche l'adresse absolue de la ligne 7 
(voir structure ligne BASIC dans TRACE n° 3) qui rap- 
pelons-le, contient la séquence d'initialisation. 
Branchement sur la ligne ! le cas échéant. En ligne 
6, l'adresse de la ligne 7 est trouvée et est conte- 
nue dans A. Dès ce moment, on range dans les octets 

5 et 6 de la ligne 7 l'adresse du "driver" vidéo 
(tiens, tiens !)... contenue dans les cases mémoire 
LO1EH et 4O1FH (16414 et 16415 en décimal) et on fait 
pointer le nouveau ‘“driver" vidéo vers l'octet 4 (le 
cinquième en partant de zéro) de la ligne 7... 
Mystère, mystère ! Et si maintenant on exécute un 
petit ordre PRINT (fin de la ligne 6) ? Que va-t-il 
se passer d'après vous ? Eh bien on se branchera 
tout simplement sur cet octet 4 de la séquence d'ini- 
tialisation pour exécuter le code machine qui y est 
contenu ! Voilà un moyen comme un autre pour éviter 
USR, DEFUSR ou POKE... Toujours est-il que d'un sim- 
ple coup d'aile, nous avons subreptissement quitté 
BASIC pour entrer dans les nuages... A bientôt ! 


Alairr Pinaud 








Un doubleur de disquettes 





pour 1,50 F 





Le numéro X de TRACE paraissant en fin d'année, il 
ne s'agit évidemment pas d'un canular de ler avril, 
mais d'une réalité accessible à chacun d'entre nous, 
heureux possesseurs d'un TRS80 et d'un ou plusieurs 
drives 5"1/4 simple face (les possesseurs de drives 
double face doivent impérativement tourner la page, 
sous peine de faire une dépression nerveuse). 


En examinant les disquettes couramment utilisées, il 
apparaît qu'elles comportent toutes une fenêtre de 
lecture /enregistrement sur chaque face, que les deux 
faces magnétiques ont le même aspect - donc sont sus- 
ceptibles d'être exploitées toutes deux -, mais, et 
c'est là qu'intervient le génie du commerce à haut 
niveau, la pochette de protection est conçue de ma- 
nière à ne pouvoir utiliser desdites disquettes que 
sur une seule face, d'où la création de matériels et 
d'habitudes de travail "simple face" et "double face" 
pour un même produit... Il convient de signaler, tou- 
tefois, que l'emploi du procédé décrit ci-après (qui 
n'est pas nouveau, mais qu'il est bon de remettre en 
mémoire), diffère quelque peu de celui des produits 
"double face", mais donne exactement le même résultat 
final, pour un prix de revient pratiquement nul (voir 
le titre, et les explications qui suivent), immédia- 
tement, et avec le matériel en votre possession !!1!1! 


Or donc, comment doubler une disquette pour une dé- 
pense aussi minime ? Rien de plus simple. Procurez- 
vous, si vous n'êtes pas un habitué du tiercé, une 
pince - élément indispensable à l'exercice périlleux 
qui consiste à choisir, chaque dimanche, les chevaux 
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qui auraient dû arriver les premiers pour éviter à 

la majorité des joueurs des regrets éternels constam- 
ment renouvelés -, dans un P.M.U.(1,50 F). Cet outil, 
qui réalise parfois des miracles, va tout simplement 
doubler votre capital disquettes avec, il est vrai, 
un peu de travail personnel et beaucoup de soin. 


ATTENTION : les disquettes sont des éléments fragiles, 
et il importe de suivre les conseils habituels de 
prudence. tout au long des manipulations suivantes. 


Tracé du gabarit (figure 1) 


Posez une feuille de papier calque sur une disquette 
normale simple face (évidemment !}), côté étiquette, 

et dessinez successivement, à l'aide d'un crayon gras, 
sans appuyer, les L coins de la pochette, le trou 
centralde la pochette (@ HO mm), le petit trou laté- 
ral (@ 6 mm), les 2 petits crans situés sous la fe- 
nêtre de lecture (deux demi-cercles de @ 2,5 mm), et 
le cran latéral, que vous recouvrez habituellement 
d'un morceau de ruban adhésif, afin d'inhiber la pos- 
sibilité d'écriture (6xk mm). 


Découpe du gabarit (figure 2) 





Découpez, à l'aide de ciseaux, les 4 côtés de la po- 
chette (carré de 133 mm), et le trou central ; avec 
la pince miracle, vous découpez : les deux petits 
crans inférieurs, le cran latéral (en 2 fois) ; res- 
te à exécuter le principal : le petit trou latéral. 
Vous tracez, sur votre gabarit, deux traits parallè- 
les au côté inférieur (qui comporte les petits crans}) 
au-dessus et en-dessous du petit trou latéral, puis 
vous faites 2 coupes comme indiqué sur la figure. 

NE PAS DEPASSER LE TRACE INDIQUE. 

Utilisation du gabarit (figure 3) 





utile 


Vous êtes, maintenant, en possession d'un gabarit 
que vous pouvez, si vous le désirez, et si votre 
stock de disquettes le nécessite, reproduire exacte 
ment sur du papier fort, genre bristol, par exemple. 
Pour procéder à la modification proprement dite de 
la pochette de la disquette (aucune intervention sur 
le disque magnétique en lui-même...), il vous faut 
disposer le gabarit sur la pochette côté opposé à 
l'étiquette, en faisant coïncider les petits crans 

à la partie inférieure, et en disposant le cran la- 
téral du gabarit à l'opposé de celui de la pochette. 


Pendant toute l'opération suivante, le gabarit ne 
doit en aucun cas glisser par rapport à la pochette. 
Collez-le à l'aide de 4 morceaux de ruban adhésif 
sur la pochette, par précaution. Positionnez la pin- 
ce à l'emplacement du cran latéral,.et découpez la 
pochette en 2 fois, comme dans le gabarit (la forme 
restante, en accolade, n'a aucune importance). 


Glissez, ensuite, la languette mobile de la pince en- 
tre le disque magnétique et la pochette, celle-ci se 
trouvant donc prise dans la mâchoire de la pince ; 
exécutez, en 2 fois, la découpe suivant le tracé ini- 
tial(même remarque, pour le fond de la découpe, que 
précédemment). A ce moment, Ô miracle !, vous vous 
apercevez, en observant de près, que la longueur de 
l'encoche formée par la pince (pour une seule coupe, 
bien entendu), interdit à celle-ci d'aller plus avant, 
donc d'approcher la partie utile du disque, d'où au- 
cun danger de rayer les pistes magnétiques (non, la 
tête ne resterait pas indéfiniment sur la même piste, 
répétant éternellement les mêmes instructions !...). 
Là, il convient d'ouvrir une parenthèse : certains 
esthètes objecteront que la forme des découpes est 
peu conforme au modèle, et qu'il existe des petits 
perforateurs à un trou - pour écoliers - qui respec- 
tent le "design" d'origine. Certes. Mais lesdits per- 
forateurs peuvent impunément, en raison de leur tail- 
le, s'en aller patiner joyeusement sur lesdites pis- 
tes magnétiques, et vous devinez la suite... Laissez 
donc au vestiaire ces considérations, aussi distin- 
guées fussent-elles, et faites en sorte de vous re- 
trouver avec un stock de disquettes doublé en moins 
de temps qu'il n'en faut pour aller en acheter d'au- 
tres... 


Bien entendu, arrivés à ce stade, et après avoir re- 
fermé la parenthèse, vous aurez remarqué que, si le 
cran latéral est identique à son vis-à-vis, il n'en 
est pas de même pour le trou latéral ; qu'à celà ne 
tienne, il suffit de placer le gabarit de l'autre 
côté de la disquette, et de répéter l'opération du 
bon côté ! A ce moment, la disquette est utilisable 
immédiatement. Prenez soin, toutefois, de vous assu- 
rer qu'aucun déchet de papier, si petit soit-il, ne 
se soit glissé dans la pochette de la disquette. 


I1 ne vous reste plus qu'à mettre une étiquette vier- 
ge sur cette nouvelle face, et à introduire le tout 
dans le drive idoïine, puis à “"backuper'" le disque de 
votre choix. Sur 40 disquettes en ma possession, je 
n'en ai trouvé que deux qui aient été refusées (back- 
up rejeté) pour des défauts de surface 

Un dernier truc 


Si vous utilisez un logiciel genre "UTILDIR", ou au- 
tre, pour cataloguer vos disquettes - c'est indis- 
pensable -, faites la chose suivante : dans le cas 

du programme précité, la capacité du catalogue est 

de 80 disquettes maximum ; numérotez vos disquettes, 
sur la face "Origine", de 1 à 40 (prévoyez de le fai- 
re si vous avez moins de 40 disquettes), et numéro- 
tez la face opposée de chaque disquette en ajoutant 
40 au numéro de la première face. C'est une astuce 
qui vous fera gagner beaucoup de temps ultérieurement. 
Au delà, il est bon de créer une disquette catalogue 
par rubrique (utilitaires, jeux, etc...), et de fai- 
re suivre chaque numéro d'un code correspondant (ex: 
SPPJS EU etc de 


CONCLUSION 


En cette fin d'année, qu'il me soit permis de sou- 
haiter un Joyeux Noël à tous (y compris à ceux qui 
n'utiliseront pas ce procédé, voire même à ceux qui 
possèdent un autre micro-ordinateur que le TRS80 - 
il en faut...), l'économie réalisée au prix de quel- 
ques instants de patience vous permettant d'acheter 
les dernières nouveautés en matière de jeux sur dis- 
quettes !... Ah ! j'oubliais... il est bien entendu 
que la deuxième face des disquettes de jeux que vous 
achetez dans le commerce - ou que l'on vous offre - 
est justiciable du même traitement, ce qui amortit 
quelque peu le prix d'achat dudit jeu --- 


, 


————————————— Daniel Levasseur 
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initiation 





Les graphiques 
du TRS (II) 


Comme nous l'avons vu, le BASIC offre de grandes 
facilité dans la manipulation des chaînes de carac- 
tères. Dans certains cas (comme ceux que nous allons 
étudier), toutefois, l'animation graphique ne peut 
se faire à l'aide de chaînes, à cause de 1a lenteur 
du BASIC. Dans ces cas, la seule solution est de se 
plonger dans un programme en langage machine (ou LM) 
qui réalisera l'animation désirée. Le LM effraie 
nombre de débutants ...Il faut avouer que la moindre 
manipulation en LM exige une bonne séance de frappe 
sous assembleur, suivie d'une mise au point parfois 
laborieuse sous moniteur. En contrepartie, la grande 
rapidité du LM permet de concevoir des effets visuels 
dont l'utilisateur du seul BASIC ne peut que rêver. 


L'ambition de cet article est de fournir des routi- 
nes facilement utilisables dans tout programme BASIC, 
et pouvant se reloger à divers endroit de la RAM uti- 
lisateur, sous certaines restrictions précisées pour 
chaque routine. Une compréhension totale du fonction- 
nement de ces sous-programmes en LM réclame une ha- 
bitude de la programmation en assembleur, et n'est 
par ailleurs pas nécessaire pour leur utilisation. 


Lesdites routines en LM se chargent à partir de pro- 
grammes BASIC comportant des DATA. Les TRS-80 munis 
des anciennes ROM (message"MEMORY SIZE") effectuent 
parfois des RESTORE intempestifs et non programmés, 
à cause d'une erreur dans cette ROM. Pour éviter ce- 
la, il est préférable de faire un POKE 16553,255 
après la mise sous tension. 


Nous avons parlé de rapidité, confrontons donc le 
BASIC et le LM sur un problème simple : comment blan- 
chir l'écran du TRS-80 ? La solution consiste à met- 
tre dans chaque octet de la RAM vidéo le code 191, 
qui est celui du bloc graphique blanc. La méthode 
BASIC est la suivante 


19 DEFINT I-J : J=191 : REM J est le code du CG blanc 
20 FOR 1=-1536@ TO 16383 : POKE I,J : NEXT : REM ce 
CG est "poké" dans toute la RAM vidéo 
39 FOR I=1 TO 2999 : NEXT : REM temporisation 
UG END 


Temps d'exécution : } à 5 secondes. Plutôt lambin, 

non ? Passons à la méthode assembleur. La routine 

BLCECR proposée fait strictement la même chose que 

les lignes BASIC 10-20 précédentes, à savoir mettre 

des 191 dans tous les octets de la RAM vidéo. Sa 

liste en assembleur est la suivante 

194 ORG 7FGGH ; place la routine 255 oc- 
tets avant la fin de la 
RAM 

119 BLCECR EXX ; voir texte ci-après 

120 EX AF,AF! ; idem 
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130 LD  HL,15360 ; HL pointe sur le début de 
la RAM vidéo 
149 LD BC,1924 ; BC est le nombre d'octets 


de l'écran 
154 BCL1 LD (HL),191 ; blanchit le caractère 
pointé par HL 


16g INC HL ; passe au caractère sui- 
vant 

179 DEC BC ; décrémente le compteur 
d'octets 

189 LD A,B ; A=BEC, nul si et seule- 
ment si B et C sont nuls 

19% CRC ; ( @est le symbole du OU 
logique) 

2909 JR NZ,BCL1 ; si BC est non nul, blan- 


chit l'octet suivant 


219 EXX ; si BC est nul, c'est fini 
22 EX AF,AF' 
239 RET ; retour au BASIC 


Les lignes 119, 129, 210 méritent un mot d'explica- 
tion : le Z89 possède deux séries de registres À, F, 
B,C,D,E,H,L. Les programmes contenus dans la ROM BA- 
SIC n'emploient qu'une seule série de registres, 
l'autre est donc disponible pour l'utilisateur. 
L'instruction EX AF,AF' échange les registres A etF 
des deux séries, tandis que l'instruction EXX échan- 
ge les registres B à L. Cela permet d'utiliser li- 
brement les registres du Z80, sans devoir les sauve- 
garder par des PUSH, puis les restaurer par des POP. 
Mais pourquoi se faire du souci au sujet de ces re- 
gistres, au fait ? Tout simplement parce que le BA- 
SIC y stocke parfois des informations vitales pour 
son bon fonctionnement. Toute altération des regis- 
tres produit dans ces cas un "plantage" de l'ordina- 
teur lors du retour au BASIC (instruction RET de la 
routine). Donc sauvegarder systématiquement les re- 
gistres en début de routine, puis les restaurer avant 
le retour au BASIC, est une mesure de sécurité. C'est 
ce que nous faisons en échangeant les deux séries de 
registres au début et à la fin de chacune de nos rou- 
tines en LM. 


Préoccupons-nous à présent de mettre en oeuvre notre 
routine BLCECR. Il s'agit de la placer par des POKE 
en haut de la mémoire, les codes-op de la routine 
étant contenus dans une ligne de DATA. Remarquons 
que la routine doit être placée en mémoire protégée, 
ce qui nécessite une initialisation correcte du pa- 
ramètre "MEMORY SIZE", Par contre, son adresse de 
début (qui est aussi son adresse de lancement) peut 
être quelconque, il faut simplement qu'elle soit 
toujours en mémoire protégée. Pour cette routine 
comme pour les suivantes, la variable A (ligne 29 
du programme BASIC) sera l'adresse de début de la 
routine, et la taille mémoire devra avoir la même 


valeur que 4 (32512 dans notre exemple). Ceci est 
rendu possible en n'employant que les branchements 
en adressage relatif, et en s'interdisant l'emploi 
de sous-programmes dans la routine en LM, puisque 

le Z89 ne possède pas d'instruction d'appel de sous- 
programmes en adressage relatif. Ouf ! Passons en- 
fin au programme BASIC : 


19 DEFINIT A-J 

29 À = 32512 : REM 32512 = 7FG0H. C'est l'adresse 
de lancement et de début de la routine. 

39 B = Q@ : REM B sera la somme des valeurs des 
codes-op, afin de vérifier les DATA 

4@ FOR I = @ TO 18 : READ J: POKE A+I,J : B = B+J : 
NEXT : REM place les 19 octets de la routine en 
haut de mémoire. B en fait la somme (c'est une 
mesure de précaution) 

5ÿ DATA 217,8,33, 0, 60,1,0,4,54,191,35,11, 120,177, 
32,248,217,8,201: REM valeurs décimales des codes 
op de BLCECR. Leur somme est 1617. 

69 IF B<>1617 THEN PRINT "ERREUR DONNEES LIGNE 5" 
STOP : REM vérification de la valeur de B 

70 A = INT(A/256) : A1 = À - AG*256 : REM convertit 
A en deux octets. A@ est l'octet de poids fort, 
A1 celui de poids faible. 

89 POKE 16526,A1 : POKE 16527,A9 : REM prépare l'u- 
tilisation de USR. 

94 I = USR(J) : REM appelle BLCECR. Les arguments 
I et J sont "bidons" puisqu'aucun paramètre n'est 

ici échangé entre BASIC et routine LM. 

190 FOR I=1 TO 299% : NEXT : REM temporisation 

11@ END 


Comme spécifié dans le "manuel du Level 2", l'adres- 
se de la routine doit être convertie en deux octets 
(puisqu'une adresse occupe 16 bits), ce que réalise 
la ligne 70. Pas mal, cet écran blanc... Mais si | 
nous remplissions la RAM vidéo d'une autre caractère 
que ce CG de code 191 ? Pour cela, deux moyens 


- remplacer, dans la ligne 59 de DATA, le code 
191 par celui du nouveau caractère, modifier la va- 
leur de la somme en conséquence, puis faire RUN ; 


- ou bien faire POKE A+9,N (où N est le code du : 
nouveau caractère), car le code du caractère destiné 
à remplir l'écran est le dixième octet de la routi- 
ne, puis GOTO 99. 


Ce blanchissement instantané de l'écran évoque les 
effets "flash" que l'on trouve dans nombre de jeux 
de réflexes commercialisés pour le TRS-89. Ainsi, 
dans ces jeux, lorsque le vaisseau spatial du joueur 
est détruit, l'écran se blanchit, et une fraction de 
seconde plus tard, le graphisme initial est rétabli. 
Pour rétablir ces graphismes, le programme en LM du 
jeu le redessine : sa vitesse d'exécution le lui 
permet. Mais s'il s'agit d'agrémenter les graphiques 
d'un jeu en BASIC que nous avons écrit nous-mêmes, 
nous devons écarter cette solution, car ces graphi- 
ques mettent souvent plusieurs secondes pour se re- 
nouveler. Un tel délai gâcherait l'effet obtenu... 
I1 nous faut donc sauvegarder quelque part en RAM 
utilisateur le contenu de la RAM vidéo, produire le 
flash (en appelant BLCECR), puis restaurer la RAM 
vidéo. La vitesse souhaitée nous oblige à concevoir 
cette sauvegarde et cette "restauration" (?) sous 
forme de deux routines en LM, respectivement SAVECR 
et RESECR. Dans ces deux routines, le plus simple 
est d'employer l'instruction LDIR du Z8@. 
L'instruction LDIR s'utilise comme suit (ceux qui 
connaissent par coeur leur "MPU Z8@ Technical Manual" 
me pardonneront ce rappel ! ) : pour transférer N oc- 
tets d'une zone mémoire source d'adresse X vers une 
zone mémoire destination d'adresse Y, il suffit de 
charger N dans le registre 16 bits BC, X dans HL, Y 
dans DE, et d'exécuter LDIR. Cette instruction bou- 
cle sur elle-même jusqu'à ce que le transfert soit 
terminé. 


Nos deux routines sont alors extrêmement simples 


109 ORG 7BG9H ;: 7BO0H = 31488, soit 1279 
octets afin la fin de 
la RAM 

119 SAVECR EXX ; commute le Z80 sur la 
série inutilisée de re- 
gistres 

120 EX AF,AF' ; 

130 LD DE,31743 ; car 32767-31743=1024. 


La RAM vidéo est sauve- 
gardée dans les 1924 
plus hauts octets. 


14Q LD HL,15364 ; HL pointe sur le début 
de la RAM vidéo 

159 LD BC,1924 ; il y a 1924 octets à 
transférer 

169 LDIR ; et hop ! l'écran est 
sauvegardé 

179 EXX ; rendons au BASIC les 
registres qui lui ap- 
partiennent 

184 EX AF,AF! ; 

19q RET ; retour au BASIC 


; nous plaçons les deux routines à la suite 
209 RESECR EXX ; commute le Z8Q sur la 
série inutilisé de re- 
gistres 
219 EX AF,AFL ; 
229 LD DE,15364 ; cette fois, la destina- 
tion est la RAM vidéo. 


30 B = @ : REM B sera la somme de contrôle des DATA 
contenant les codes-op des trois routines. 

4 FOR I = @ TO 5Q@ : READ J : POKE A+I,J : B = B+J : 
NEXT 

59 DATA 217,8,17,255,123,33,0,60,1,0,4,237,116,211,: 
8,291 : REM codes-op de la routine SAVECR 

69 DATA 217,8,17,0,60, 33,255, 123,1,0,4,237,176,217, 
8,291 : REM codes-op de la routine RESERCR 

7T@ DATA 217,8,33,0,69,1,0,4,54,191,35, 11, 120,177, 32, 
248,217,8,291 : REM codes-up de BLCECR 

89 IF B<>4731 THEN PRINT "ERREUR DONNEES" : STOP 


Utilisons à présent ces trois routines. Four pro- 
duire notre effet-spécial-style-proféssionnel, il 
nous faut appeler successivement SAVECR (pour sau- 
végarder le contenu de l'écran), BLCECR (pour le 
fameux flash") et RESECR (pour que le contenu de 
l'écran revienne comme si de rien n'était). 
Ajoutons donc les lignes suivantes à notre char- 
geur 


99 M = A : REM sera, lors de chaque appel de rou- 
tine, l'adresse de lancement de celle-ci (ici, 
de SAVECR) 

199 GOSUB 599 : REM appel de SAVECR. Le sous-pro- 
gramme en 599 fait la conversion et les POKE 
nécessaires avant USR 

119 M = A+32 : REM BLCECR se trouve 32 octets après 
le début de la RAM protégée 

129 GOSUB 5G@ : REM appel de BLCECR 

139 M = A+16 : REM RESECR se trouve 16 octets après 
le début de la RAM protégée. 

154 GOSUB 549 : REM appel de RESECR 

164 FOR I = 1 TO 1009 : NEXT : REM temporisation 

174 GOTO 99 

:99 REM ce sous-programme convertit l'adresse M en 
deux octets (16 bits), et effectue les POKE qui 

s'imposent, avant d'utiliser USR 

500 MG = INT (M/256) : M1 = M-256*M9 : REM MO est 
l'octet de poids fort, M1 celui de poids faible 

519 POKE 16526,M1 : POKE 16527,MQG : REM place 
l'adresse de la routine à appeler. 

520 I = USR (J) : REM appelle la routine. Les argu- 
ments I et J sont "bidons". 

530 RETURN : REM that's all, folks ! 


Après avoir tapé ce programme, vérifiez-le (cela va 
sans dire), sauvegardez-le sur votre support magné- 
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tique favori (pour le cas où il se planterait), et 
observez la procédure suivante 


- faire RESET 


- tapez 31488 (Enter) en réponse à la question 
MEMORY SIZE du TRS-80 ; 
— rechargez le programme ; 


239 LD HL, 31743 ; et la source est le haut 
de la RAM utilisateur 

24g LD BC, 1924 ; toujours 1924 octets à 
transférer 

259 LDIR ; rebelotte, mais en sens 
inverse 

269 EXX ; restaure les registres 

270 EX AF,AF' . 

289 RET ; retour au BASIC 


(Une manière plus économique consisterait à rempla- 
cer les lignes 240 à 280 par un branchement relatif 
à la ligne 150). 


Pour produire l'effet "flash" décrit plus haut, il 

faut en sus disposer de la routine BLCECR précéden- 
te. Notre "chargeur" BASIC chargera donc, à partir 

de l'adresse 31488, les routines SAVECR, RESECR et 

BLCECR l'une à la suite de l'autre 


19 DEFINT A-N 
29 A = 31488 : REM la MEMORY SIZE doit être initia- 
lisée à la valeur de À 


- cette fois, vérifiez-le VRAIMENT, et corrigez 
les erreurs éventuelles... 

- tapez RUN (Enter) ; 

- et ça marche ! L'écran lance un éclair, son con- 
tenu n'ayant pas changé. Un bref délai, et un 
nouvel éclair est lancé... 


L'euphorie de la réussite passée, nous nous aperce- 
vons que nous consommons plus d'un Koctet de notre 
RAM si étriquée pour, somme toute, pas grand-chose. 
Heureusement, l'interface visuelle de l'homme ne lui 
permet qu'une saisie de données graphiques relative- 
ment lente. Autrement dit, si nous parvenons à bri- 
coler un effet similaire au précédent en moins de 
RAM (sans sauvegarder l'écran), l'utilisateur n'y 
verra que du feu, grâce à la vitesse du LM. 


Un effet peu coûteux en RAM est l'inversion des ca- 
ractères graphiques (c'est-à-dire allumer les points 
éteints et vice-versa). Avantage de ce procédé : un 
graphique quelconque comporte toujours plus d'espaces 
que de CG proprement dits. Donc, l'appel d'une rou- 
tine réalisant cette inversion blanchira une bonne 
partie de l'écran, ce qui est un substitut acceptable 
de l'effet souhaité. Et pour rétablir le graphique 
initial, après avoir "lancé l'éclair" ?I1 suffit de 
concevoir la routine d'inversion de sorte qu'elle 
soit involutive, c'est-à-dire que deux appels consé- 
cutifs de cette routine laissent l'écran dans son 
état antérieur. 


La routine d'inversion de l'écran proposée, nommée 
INVECR, accomplit les tâches suivantes 


— elle transforme tous les caractères graphiques 
en leurs "négatifs" ; 

- elle transforme tous les espaces (de code ASCII 
32) en caractères graphiques blancs (de code 
197%; 

- et elle laisse inchangés les autres caractères 
(chiffres, lettres, symboles...). 


Comment s'y prendre pour inverser un CG ? Nous avons 
vu qu'un CG correspond, comme tout caractère de l'é- 
cran, à un octet de la RAM vidéo, et que cet octet 
se caractérise par 


- son bit b7 (de poids le plus élevé) vaut tou- 
Jours at 
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- son bit b6 vaut toujours 9 ; k 
- ses bits b5 à b@ correspondent chacun à l'un 


Conclusion 


des six points constituant le caractère graphi- 
que, valant 1 si le point est allume, @ s'il 
est éteint. ï 


: pour inverser un CG, il faut inverser 


les bits b5 à b@ de l'octet correspondant, tout en 
laissant b7 à 1 et b6 à Q. Pratiquement, vu le jeu 
d'instruction du Z8@, nous pouvons adopter la séquen- 
ce suivante 


a) lire l'octet correspondant au CG à inverser, 


et le charger dans l'accumulateur du Z8 ; 


b) compléter l'octet (instruction CPL, qui n'opè- 


re que pour l'accumulateur, d'où la nécessité 

de a) ). Ceci a pour effet d'inverser les bits 
b5 à b9, comme souhaité, mais aussi de mettre 

b7 à Get b6 à 1, ce qu'il faut corriger ; 


c) remettre b7 à 1 et b6 à @. Cela peut s'effec- 


Or en binaire, 64 s'écrit 


tuer de bien des façons, la plus simple étant 
d'ajouter 64 à l'octet en question. En effet, 
cet octet, après l'étape b), est de la forme 


bit [0 11XX X XX X bits! incorrects 
n° 7 6,5 3210, bits inversés corrects 
: 0100 O90G. L'addition de 


ces deux nombres binaires donne donc : 


Le résultat de cette addition est donc un octet 
ayant la forme correcte, puisque b7 vaut 1 et b6 
vaut @. 


Voici la liste d'un programme en LM qui emploie cet- 
te méthode 


190 
119 


129 
130 


140 
159 
16q 
170 
189 


199 


209 
214 
224 
230 
24g 
250 
26g 


270 
289 


299 


300 


ORG 7FG0H ; 7FOQH = 32512. Cette ori- 
gine peut être déplacée. 
INVECR EXX ; commute le Z89 sur la série 


inutilisée de registres 

EX AF,AF' ; 

LD HL,1536@ ; HL pointe sur le début de 
la RAM vidéo 

LD BC,1924 ; BC compte les caractères 
à inverser 


BOUCLE LD A,(HL) ; charge À avec le caractère 
pointé par HL 
LD D,A ; sauvegarde ce caractère 
dans D 
CPEeS2 ; le compare avec un espace 


(de code ASCII 32) 
JR NZ,SAUTI ; si ce n'en est pas un, 
aller en SAUTI 


LD A,191 ; si c'est un espace, le 
change en un CG blanc 
(code 191) 
JR SAUT2 ; et on remet ce blanc là où 
on a pris l'octet 
SAUT1 AND 128 ; force à Q tous les bits 


sauf b7. Donc A-Q si b7-4 
JR Z,SAUT3 ; si A=0, le caractère n'est 
pas graphique : au suivant! 


LD A,D ; restaure la valeur de l'oc- 
tet, altérée par le dernier 
AND 
CPL ; inverse tous ses bits 
ADD 64 ; voir texte ci-dessus 
SAUT2 LD (HL),A ; remplace le CG par son in- 


verse dans la RAM vidéo 
passe au caractère suivant 
--. ét diminue de 1 le com- 
pte d'octets restants 
LD A,B ; À est chargé avec B@C, 

et n'est nul que si B-=C=@ 


SAUT3 INC HL 
DEC BC ; 


319 JR NZ, BOUCLE ; si BC n'est pas nul, on 
continue (il reste des 
octets) 

329 EXX ; restitue ses registres au 

BASIC 
339 EX AF,AF' E 
349 RET ; retour au BASIC 


Le chargeur BASIC qui installe cette routine en mé- 
moire protégée est donné ci-après. Il nécessite une 
initialisation du MEMORY SIZE à la valeur de À 
(32512 dans ce cas). 


19 DEFINT A-N 

29 À = 32512 : REM A et MEMORY SIZE doivent avoir 
la même valeur 

39 B = @ : REM B sera la somme des valeurs des 
DATA 

UG FOR I = @ TO 37 : READ J : POKE A+I,J : B = B+J : 
NEXT 

5@ DATA 217,8,33,0,60,1,0,4,126,87,254,32,32,4,62, 
191,24,8,239,128,40,5, 122,47, 198,64, 119,35,11, 
120,177,32,231,217,8,291 : REM codes-op de INVECR. 
Leur somme est 3128. 

69 IF B<>3128 THEN PRINT "ERREUR DONNEES" : STOP 


Pour tester l'effet de ce programme en LM sur les 
CG, créons un dessin quelconque avant d'appeler 
INVECR : 


utilitaire 


Sauvegardez 
vos cassettes 





76 CLS : PRINT 36,"TEST" : FOR I = 476 TO 732 STEP 
64 : PRINT I,STRINGS(8,134) : NEXT : REM gra- 
phisme de test 

84 AG = INT(A/256) : A1 = A = 256*AQG : REM conver- 
tit A en deux octets. AQ est l'octet de poids 
fort, A1 celui de poids faible. 

94 POKE 16526,A1 : POKE 16527,AG : REM prépare 
l'appel de la routine par USR 

199 I=USR(J) : REM appel INVECR. Les arguments I et 
J sont bidons. 

119 FORI=1 TO 299 : NEXT : REM temporisation 

126 GOTO 199 : REM boucle jusqu'à un BREAK 


Cette boucle montre bien que la routine est involu- 
tive. En remplaçant la ligne 190 par 


199 I = USR(J) : I = USR(J) 


nous nous apercevons que l'on retrouve un effet 
flash", tout en ayant économisé un Koctet de RAM ! 
A méditer, donc : "pour remédier au défaut d'un pro- 
gramme, cherchez le défaut de l'utilisateur". 
(Compfucius) 


Frédéric Mora 
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L'utilisation de cassettes permet un stockage écono- 
mique pour les fichiers séquentiels. Cependant leur 
duplication aux fins de sauvegarde n'est pas facili- 
tée par l'absence d'une instruction spécialisée qui 
serait l'homologue des BACKUP et autres COPY des 
SED. Le petit programme ci-dessous vous permettra de 
dupliquer aisément et rapidement, une seule passe 
suffit, tous vos fichiers sur cassette, quel que 
soit le format des enregistrements (PRINT # , objet 
ou source assembleur, BASIC ou SYSTEM). 

La méthode utilisée nécessite deux magnétophones, 
l'un pour lire la bande originale, l'autre pour en- 
registrer sa réplique. Mais, à la différence du 
procédé classique de recopie de magnéto à magnéto, 
les signaux électriques transitent par l'interface 
cassette du TRS 80 pour recevoir une remise en for- 
me. La qualité de la reproduction est ainsi identi- 
que à celle obtenue lors des enregistrements habi- 
tuels. 


Partant d'un principe extrêmement simple, chaque 
digit lu sur la bande à reproduire, qu'il s'agisse 
d'un digit de donnée ou d'un digit de synchronisa- 
tion, déclenche l'écriture d'un digit sur la bande 
image. Le TRS 80 Modèle 1 utilise le port 255 du 
microprocesseur Z 80 pour interfacer le magnétopho- 
ne en lecture comme en écriture. C'est donc par lui 
que transiteront alternativement les informations 
(bit 7 en lecture, bits 0 et 1 en écriture). Le 
rôle essentiel de ce programme utilitaire sera donc 
de jouer les aiguilleurs. 


Pour la mise en oeuvre, raccorder les prises EAR et 
REMOTE du lecteur et la prise AUX de l'enregistreur 
aux fiches correspondantes du câble venant du cla- 
vier ou de l'interface d'expansion (magnétophone 1). 
Faire RUN et le signal d'invite SYSTEM apparaît 
presque aussitôt sur l'écran. Démarrer d'abord l'en- 
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registreur, puis faire / pour mettre en marche le 
lecteur. Dès que le premier digit est lu, les asté- 
risques habituels apparaissent et celui de droite 
clignotera pendant toute la durée du transfert. Le 
lecteur s'arrêtera automatiquement 1.66 seconde 
après la fin des signaux. Cette temporisation permet 
de franchir le petit blanc qui sépare les enregis- 
trements des blocs de PRINT = et de programme objet 
créé par EDTASM. Après l'arrêt du lecteur, le pro- 
gramme effectue un retour à la commande SYSTEM de 
façon à être de nouveau prêt à poursuivre la lecture 
si nécessaire. Si l'on fait ENTER tout seul, un 
message d'erreur concernant la ligne 110 sera affi- 
ché avec édition de cette ligne. Refaire à nouveau 
ENTER, ce qui ramène au BASIC et le programme est 
toujours présent. 


DES UTILISATEURS LEVEL IT 


A L'USAGE EXCLUSTF 
CASSETTE, MODELE 1 OÙ 3 ! 








10 ‘ RECOPIE DE FICHIERS CASSETTE BIT PAR BIT (LEVEL 2) ‘ F6 
20 ‘ AUTEUR : ROGER BUVAT Lee 
22 * COPYRIGHT "TRACE" ET L'AUTEUR ; 
4 DÉPRESSION 28 A AE EN qu TR EE ER PP Spam Pr 4 

50 FOR I1=20000 TO 20063 AUS 
80 READ J us A7 
70 POKE I7J = Æf 
80 NEXT I Ed = 
90 POKE 16526:93 : POKE 16527278 ‘ ADRESSE POUR USR " LaGE 
100 POKE 16607:32 : POKE 1660878 ‘ ADRESSE ROUTINE = : CB 
110 PRINT USR(DO) * INITIALISATION FL ÈTE 
D A ELLE " 88 
130 DATA 62:74 :° LD A14 es 
140 DATA 2117235 :° OUT (OFFH)7A a 
150 DATA 2197255 :"ATTO IN A:(0FFH) "44 
160 DATA 23 :° RLA DE 
170 DATA 48:251 1° JR NC:ATTO ER 
180 DATA 33:62:60 :° LD HL : 3C3EH ‘CPE 
190 DATA 5442 :° LD (HL) 2 2AH ne: 
200 DATA 35 :° INC HE UE 
210 DATA 54,42 L LD (HL) 2 2AH : 
220 DATA 6:60 :"DIGIT LD B23CH ‘ 94 
230 DATA 16:254 = DJNZ $ "ZA 
240 DATA 82:35 :° LD A:5 = 
250 DATA 2117255 1° OUT (OFFH):A ES 
260 DATA 6:16 CE LD B> 10H 2 570 
270 DATA 16254 :° DJIN7Z $ 20 
280 DATA 62:86 :° LD A8 "STE 
290: DATA 2117255 :° OUT (OFFH) À ee 3 
300 DATA 6:16 :° LD B10H "48 
310 DATA 16254 :° DJNZ $ 709 
320 DATA 6274 :° LD A:#k ere 
330 DATA 211253 1° OUT (OFFH)7AÀ Pere 
340 DATA 126 :° LD A7 (HL) 1 
350 DATA 13 :° DEC C je euh 
360 DATA 3272 :° JR NZ2$+2 RE a 
370 DATA 23810 :° XOR DAH Ai 
380 DATA 119 ci LD (HL) 7A Zb 
390 DATA 17:00 z° LD DE 70 ot DZ 
400 DATA 2192255 :'ATT IN A: (0FFH) ER 
410 DATA 23 :° RLA RE 
420 DATA 567217 a JR C2DIGIT HE 
4k3D DATA 27 :° DEC DE APE 
440 DATA 122 -‘ LD A:D rl 
450 DATA 179 -" OR E "DA 
4k6D DATA 32:246 :° JR NZ2ATT "44 
470 DATA 19517572 :° Je DZ2AFH PRE 
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Roger Buvat 


méthode 





Convertissez 


programmes et fichiers 


de cassette à disquette 





Vous êtes possesseur d'un modèle 1 ou 3 version cas- 
sette et vous avez utilisé cet organe périphérique 
pour stocker vos fichiers séquentiels. Mais tout à 
une fin et vous venez récemment de faire l'acquisi-, 
tion d'une unité de disquette. La première question 
qui vous vient à l'esprit est tout naturellement 
comment vais-je convertir mes fichiers cassette en 
fichiers disquette ? Comparé aux "PRINT#-1" et aux 
"INPUT -1" du cassettophone... ça a plutôt l'air 
compliqué ! Il n'y a pourtant, rien de plus simple 
“en gros", il suffit de remplacer dans vos program- 
mes les "PRINT#-1" par des "PRINTÆ#1" et les "INPUT 
#-1" par des "INPUTÆ1"... En fait ce n'est pas tout, 
mais vous allez le voir, ce qui suit est très logi- 
que ! 


Les programmes BASIC que vous stockiez sur la casset- 
te possédaient chacun un nom particulier qui vous 
permettait de les retrouver (par CSAVE ou CLOAD). 
Aviez-vous remarqué que les fichiers séquentiels eux, 
n'avaient pas de nom ? Il n'y a plus cette différen- 
ce maintenant avec la disquette : les fichiers sé- 
quentiels comme les programmes possèdent un nom et 

ce nom est défini par une nouvelle instruction 

OPEN. Ce mot anglais signifie "ouvrir" et, pour fai- 
re une comparaison, on peut imaginer que la disquette 
représente une pile de livres, chaque livre représen- 
tant lui-même un programme ou un fichier. Ainsi, pour 
accéder par exemple au fichier contenant une liste 
d'adresses, on devra ouvrir le livre appelé "ADRES- 
SES", c'est-à-dire faire un "OPEN" du fichier "ADRES- 
SES". Au moment de l'ouverture du fichier, on devra 
préciser le type d'opération que l'on a l'intention 
d'effectuer : lecture ou écriture, sachant qu'on ne 
peut pas effectuer les deux en même temps. Avec le 
magnétophone, il fallait appuyer sur les touches PLAY 
pour lire ou PLAY et RECORD pour écrire, mais on ne 
pouvait pas lire la cassette avec la touche RECORD 
enfoncée et inversement écrire avec l'unique touche 
PLAY enfoncée ! Au moment d'ouvrir notre fichier, il 
faudra donc écrire : OPEN "O0" si nous avons l'inten- 
tion d'écrire dans le fichier ("O" comme output", 
sortie) ou : OPEN "I" si nous avons l'intention de 
lire le fichier ("I" comme "input", entrée). Les 
termes "entrée" et "sortie" lorsqu'ils s'adressent 
‘aux organes périphériques, prennent toujours la mé- 
moire de l'ordinateur comme critère de référence 

lire un fichier est une "entrée" du fichier dans la 
mémoire, écrire dans un fichier est une "sortie" mé- 
moire vers le fichier. 


Revenons à notre pile de livres. Il est fréquent 
d'avoir à ouvrir plusieurs livres à la fois pour fai- 
re des comparaisons par exemple, ou pour recopier 
dans un livre (sortie) les informations que nous li- 
sons dans un ou plusieurs autres (entrée). Avec Îles 
extensions disque du BASIC, il est possible d'ouvrir 
jusqu'à 15 fichiers simultanément, d'où la question 
posée au lancement "HOW MANY FILES ?", c'est-à-dire 
“combien de fichiers" peuvent être ouverts simulta- 
nément ? La réponse à cette question permettra au 
BASIC de réserver autant de zones tampons en mémoire 
(utilisées pour les échanges disquette) que vous avez 
demandé de fichiers. Le programme BASIC sera chargé 
après celles-ci et son adresse d'implantation sera 
donc liée à cette réponse. Si l'on répond seulement 
par <enter > à la question, le BASIC réserve implici- 
tement trois tampons mémoire, ce qui correspond à 
trois fichiers. 


Vu du BASIC, le dialogue entre le programme et le 
fichier passe toujours par la zone tampon allouée à 
ce fichier (approximativement un secteur physique) 
et nous sommes donc conduits à identifier cette zone 
par un numéro : 1 pour la première zone, 2 pour la 


seconde, etc... L'ordre OPEN est l'occasion idéale 
pour définir la zone tampon allouée au fichier et 
nous écrirons par exemple 


OPEN”"I", 1, "FTCH" 


ce qui signifiera que la zone tampon numéro 1 est 
affectée au fichier de nom "FICH" qui est ouvert en 
entrée. Nous aurions pu sans le moindre problème, 
prendre un autre numéro de zone pourvu que celui-ci 
soit libre et autorisé (dépend de la réponse à "How 
many files"). Si maintenant nous voulons ouvrir SI- 
MULTANEMENT un autre fichier (alors que "FICH" est 
toujours ouvert), il conviendra de prendre un autre 
numéro de zone tampon, le 1 étant déjà occupé 


OPEN "O",2,"BOITE" 


Ces préparatifs étant faits, il est maintenant pos- 
sible de lire dans le fichier "FICH" et d'écrire dans 
le fichier "BOITE". Comment ? Tout naturellement par 
les ordres INPUT et PRINT ... Nous ferons donc 


INPUT 1, Ag 
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pour lire dans la variable Ag le premier enregistre- 
ment du fichier attribué à la zone 1 ("FICH"'), et 


PRINT 2, Ag 


pour écrire le contenu de cette variable dans le pre- 
mier enregistrement du fichier attribué à la zone 2 
("BOITE"). Les enregistrements étant classés séquen- 
tiellement dans ce type de fichiers à la manière de 
ceux des cassettes, un nouvel ordre INPUT-41 lira le 
second enregistrement du fichier FICH, un autre le 
troisième enregistrement, etc... 


Un pointeur d'enregistrements est tenu automatique- 
ment à jour par le système sans que vous ayiez à vous 
en soucier. Même raisonnement pour les PRINT 2 mais 
en écriture. 


Enfin, pour fermer le fichier et libérer par la même 
occasion la zone tampon qui lui est associée, il suf- 
fira d'employer un nouvel ordre : CLOSE (du verbe 
fermer). Lorsque l'ordre CLOSE est suivi d'un numéro, 
seul le fichier concerné est fermé. Si aucun numéro 
n'est spécifié, tous les fichiers ouverts à cet ins- 
tant sont fermés. Une remarque au passage : tout fi- 
chier déjà ouvert ne peut pas être ouvert à nouveau, 
ce qui d'ailleurs serait ridicule et déclancherait 
un message d'erreur approprié (file already open = 
fichier déjà ouvert). Pour illustrer cela, prenons 
un petit exemple 


10: OPEN "0", 1, "FICH" 

20 PRINT#1,"EXEMPLE DE FICHIER SEQUENTIEL" 
30 FOR N=1 TO 10 

10 PRINTZÆ1,N 

50 NEXT 

60 CLOSE 


Ce programme va créer un fichier de nom "FICH" com- 

posé de 11 enregistrements, le premier étant consti- 
tué du texte "EXEMPLE DE FICHIER SEQUENTIEL" et les 

dix suivants des valeurs numériques de 1 à 10. 


Pour relire ce fichier et en afficher le contenu, 
utilisons le programme suivant 


100 OPEN "I",1,"FICH" 
110 INPUTæ#æ1,A$ : PRINT Ag 
120 FOR N=1 TO 10 

130 INPUT#1,A : PRINT A 
140 NEXT 

150 CLOSE 


Facile hein ? 

Mais on ne connaît pas toujours forcément la longueur 
d'un fichier, aussi il peut s'avérer utile de pouvoir 
en détecter la fin par une fonction spéciale : EOF 
(End Of File = Fin De Fichier) qui rend une valeur 
booléenne (oui ou non) indiquant si la fin du fichier 
est atteinte ou non. Le numéro de la zone tampon as- 
sociée au fichier est donné en paramètre 


IF EOF(1) THEN... 


signifiera : si fin du fichier 1 détectée, alors... 
et notre dernier programme pourra être modifié ainsi: 


120 IF EOF(1) THEN 
130 INPUT#1,A : PRINT A 
140 GOTO 120 
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Remarque : si vous essayez de remplacer la variable 

A en ligne 130 par la variable Ag, vous constaterez 
que cela fonctionne aussi bien. En effet, les valeurs 
numériques sont converties en chaînes alphanumériques 
(code ASCII) avant d'être écrites dans le fichier, et 
inversement à la lecture. Un dernier exemple de pro- 
gramme nous permettra maintenant de recopier le fi- 
chier "FICH" dans le fichier "BOITE" 


AOC OPEN LEE TON PIC" ouverture en lecture 

20 OPEN "O",2,"BOITE" ,ouverture en écriture 

30 ‘ les deux fichiers sont ouverts simultanément 

40 IF EOF(1) THEN CLOSE : END , si fin de fichier 
arrêt 

lecture d'1 enregt 

écriture de cet enregt 

son continue 


50 INPUT# 1, AS 
60 PRINT# 2, Ad 
70 GOTO 40 


Si vous avez déjà utilisé l'instruction LINEINPUT du 
BASIC disquette pour les entrées clavier, vous pour- 
rez profiter des mêmes avantages pour les fichiers 
séquentiels en remplaçant tout simplement INPUT-Æpar 
LINEINPUT . Brièvement, avec cette instruction les 
espaces de début de chaînes ne sont plus ignorés et 
la virgule n'est plus considérée comme un séparateur. 


Ces quelques conseils devraient vous permettre sans 
trop de difficultés de passer des fichiers cassette 
aux fichiers disquette. Une seule précaution toute- 
fois : lisez les enregistrements de la même façon 
que vous les avez écrits, c'est-à-dire dans le même 
ordre et en utilisant les mêmes types de variables 
sinon, gare aux surprises ! Sachez aussi que dans le 
fichier, les valeurs numériques sont bornées par un 
espace et les valeurs alphanumériques par une virgu- 
le (cas du INPUT mais pas du LINEINPUT ) ou un code 
de retour chariot (ODH) ou de nouvelle ligne (OAH). 
Le cas échéant, un enregistrement se terminera sur 
le 255 ième caractère de la chaîne. Ainsi, si l'on 
écrit 


100 PRINTÆ1 , 123 , "AAAA" , H56 , "BBBB" 
et que l'on espère le relire par 


200 MNPURE ZT AS Bec De 


on risque d'être très déçu... La variable A aura 
bien la valeur 123, mais la variable B# contiendra 
tout le reste de l'enregistrement, soit : "AAAA 
456 BBBB" ! Si vous ne voyez pas pourquoi, reli- 
sez bien attentivement les lignes précédents. Pour 
éviter ce problème, il faudra donc écrire 


TOO PRINT 7123 RTE TETE NE EEE NTBBEBIE 
ou bien encore 


100 PRINT #1 , 123 , "AAAA" : PRINT 1 , 456, 
" BBBB" 


Avec les fichiers séquentiels, nous avons vu que tous 
les enregistrements sont classés les uns derrière les 
autres sur la disquette, si bien que pour accéder au 
centième enregistrement par exemple, il faut avoir 

lu les 99 qui précèdent. De plus, il n'est pas possi- 
ble de modifier ou ajouter un enregistrement à un fi- 
chier sans être obligé de le recopier intégralement. 
Nous verrons peut-être dans un autre article - qui 
reste à écrire ! - que les fichiers à accès direct 

ne possèdent pas ces inconvénients. 


RÉ a mel a Di 


programme 


Un générateur 
d'effets sonores 


Grâce à ce programme, vous pourrez agrémenter vos 
jeux et aussi vos programmes "sérieux" de "BEEPS" de 
tonalité et de durée variable, ou même d'effets so- 
nores divers (arpèges, bruits de sirène, etc.). 


Il vous suffit pour cela de prolonger la sortie cas- 
sètte de l'unité centrale (normalement reliée à la 
borne AUX du cassettophone), vers un amplificateur 
basse fréquence, par exemple celui décrit dans le 

n° 2 de TRACE, ou encore la prise "pick-up" d'une 
quelconque radio. 


Le programme BASIC implante automatiquement en fond 


de mémoire 25 octets, après 
size antérieur. Donc pas de 
dans tous les sens du terme 


avoir déplacé le mémory 
problème de MEMORY SIZE, 
d'ailleurs, puisque ce 


programme tourne sous toutes les versions du modèle 
1, niveau ?, avec ou sans minidisque. 


Après un RUN, vous êtes invité à entrer des paires 
de nombres compris entre 1 et 255 définissant la to- 
nalité et la durée de "BEEPS" d'essai. 


La hauteur du son émis est inversement proportionnel- 


CONFIGURATION DE BASE 


PROGRAMME 

ROGER BROUSMICHE 
CES PRINT TAB(17) "+ 
CLEAR 77 GOSUB 25040 
L=PEEK(18581) H=PEEK { 


= # 


25050 POKE 165é81:L 
25060 HL=HL+3 GOSUB 
25070 IF PEEK(16396) 
287L POKE 165277H:REM9E 
25080 FOR I=0 TO 24 A=I+HL 
NEXT:REM9S 

25090 RETURN:REMOA 
25100 H=INT(HL/256) 
25110 IF A4>32767 
25120 RETURN:REMEC 
29130 
25140 
295190 
25160 
293170 
25180 
R PAR 
25190 
230:REM70 

25200 1Fe 12255 
23210 A=L+H#256 
25220 PRINT ‘’E 
29290-49094: 





DATA 238:1211:259713 
L PROGRAMME D'ESSAI 
Fe 
20 
qe 


:REM78 
g TONALITE 


LES 


PRINT 


3 


OR H2255 THEN 
GOSUB 25110 
SR CARTE 
72 FOR 


CET 


= 
H=5 J 
25240 
25290 
UE 


NEXT 


E=HESR#256 
A=A-659336:REM73 


DATA 2057127310: 175222:67/76169:0:0:0:0:14;250:REM4D 

2329242:21:32323 
80 

NOUVEAU MEMORY SIZE ="HL-1 

GUPÉQUES ESSAIS:,:.22 

DES NOMBRES INFERIEURS A 2567 


DUREE 


STEP SGN(H- 











le au nombre "tonäiité" et sa duré proportionnelle 
au produit du nombre "durée!" par celui de "tonalité". 
A l'exécution l'écran affiche B=USR(nn) , ou 


, 


nn = "tonalité" + "durée" * 256 


Après quelques essais, vous trouverez aisément les 
nombres qui vous conviennent, mais attention, ces 
nombres nn sont des entiers signés compris entre 
-32768 et 32767, c'est-à-dire que si nn > 32767, il 
est fait nn = nn - 65536. 

En fin de programme, vous recevez en prime un con- 
certo d'arpèges plus ou moins chromatiques. 


Tout cela est très bien, mais comment dois-je pro- 
céder pour générer des "BEEPS" dans "mes" autres pro- 
grammes ? 

C'est très simple : vous chargez d'abord le présent 
programme, vous faites un simple RUN, vous tapez 
BREAK, puis vous chargez "votre programme, dans le- 
quel vous aurez écrit aux endroits appropriés des 

B = USR(nn). 


A vous de jouer ! 


MODELE 1 K7 QU DISGUETTE 


GENERATEUR D° EFFETS SONORES 


07/82 
EFFETS SONORES x‘ 
GOTO 25160:REMES 
16582) HL=L+H4256-27 


PRINT:REMBA 


GOSUB 2510 


POKE 16562Z:H:REM34 
25100: A=HL 
<> 201 THEN DEFUSR=A 


GOSUR 25110:REMS3 
CHENE ELSESPORE 185 


GOSUE 25110: READ E FOKE A2B 


RETURN:REMOE 


832 


D1:REMDA 





PRINT:REM4S 
PRINT:REM2Z 
SVP TERMINE 


# 


5 LH IF L=Q AND H=0 THEN 25 


25180:REMS8E 


:REM7D 
EB=USR (A) 
1 TO 5 


J 


GOTO 251S0:REM89 
L=L-896 H=H-896:REMC2 


L)+5 E=USR(I) 
PRINT à 9469 


NEXT I'REMD4 


} TAPEZ < BREAK 
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jeu graphique 





Faites vos jeux 


sans prendre de risque 





MODE D'EMPLOI DU PROGRAMME "ROULETTE" 


Ce jeu de casino joue le rôle d'un croupier de rou- 
lette. C'est un moyen économique de tester vos mar- 
tingales les plus sophistiquées, et de vous laisser 
glisser sur la pente savonneuse du jeu, sans que vos 
finances en pâtissent ! 


Plusieurs personnes (jusqu'à 10) peuvent y jouer si- 
multanément, et se prêter mutuellement de l'argent, 
avec remboursement possible dès que le crédit devient 
suffisant. Un joueur seul ne peut, quant à lui, comp- 
ter que sur sa chance. Voici le déroulement des opé- 
rations : 


a) Le programme commence par demander le nombre 
de joueurs, â4insi que leurs noms. 


“"b) Puis il vous propose les instructions, qui 
vous rappellent, en même temps que les règles de la 
roulette, le mode d'entrée des mises. 


c) Le dessin du tapis de jeu apparait alors sur 
l'écran. Les joueurs entrent successivement leurs 
mises. Chacun a droit à dix mises différentes. S'il 
désire en entrer moins de dix, il lui suffit de ta- 
per "STOP" après sa première mise. Pour chaque mise, 
le programme demande d'abord son objet ("SUR QUOI 
MISEZ-VOUS ?") puis ensuite son montant ('"COMBIEN 
VOULEZ-VOUS MISER LA-DESSUS ?"). Attention, si vous 
dites "je mise mille Francs sur le 14", il faudra 
taper d'abord 14 (en réponse à la première question), 
puis 1000 (en réponse à la seconde), et non l'inver- 
se ! Pour miser sur les rouges, tapez "ROUGE" pour 
la 1ère question ; pour parier sur les pairs tapez 


RE 


39 


10 RANDOM: CLEAR1000:REMED 
20 DEFINTI-N:DEFSTRO-Z:DEFDBLF-H:REM7#4 


110 CLS:REMOE 


ROULETTE 
PAR FREDERIC MORA 


"PAIR"; tapez "19" si vous misez sur ce chiffre, 
etc... Il vous est possible de miser sur Pair, Im- 
pair, Manque (les numéros de 1 à 18), Passe (19 à 36), 
Rouge ou Noir, et ce, pour un rapport de deux fois 

la mise (puisque vous avez alors une chance sur deux 
de gagner). Pour un rapport de 36 fois la mise, vous 
pouvez risquer vos "jetons" sur les 36 numéros . 


d) Un dessin censé représenter la roue aux trente 
six numéros apparaît après la dernière mise. Quelques 
secondes de suspense, et... 


e) Le résultat fatidique s'inscrit sur l'écran ! 
Si, par malheur, le nombre sorti est le zéro, sur 
lequel personne ne peut miser, la banque empoche les 
mises. Sinon, vous assistez à l'énumération des ré- 
sultats, par mise gagnante et par joueur. 


f) Le crédit de chaque joueur est ensuite donné. 


g) Si un zéro isolé constitue le seul crédit d'un 
joueur, celui-ci peut en appeler à la bonté d'âme de 
ses partenaires (s'il ne joue pas seul, évidemment). 
T1 devra rembourser ses dettes dès que son crédit 
aura dépassé un montant double de celui des dettes. 
Le programme ne l'y oblige pas, mais que dire des 
autres joueurs ? 

Et s'il ne trouve aucune âme charitable, il est im- 
pitoyablement éliminé (du jeu, s'entend !). 


h) La fin de la partie survient lorsque tous les 
joueurs sont ruinés, ou lorsqu'un joueur devient mil- 
lionnaire. Si la barre d'un million vous semble trop 
haute, augmentez le crédit initial des joueurs (ini- 
tialisé à dix mille Francs à la ligne 1005). 


Bon amusement. 





120 PRINT:PRINT:PRINT:PRINT:REMI2 


150 PRINT+USINGUSINGUSINGUSINGUSINGUSING 
USING USING 


SING USING 


USINGUSINGUSINGUSINGU , 
USINGUSINGUSINGUSINGUS INGUSING 


USING USINGUSINGUSINGUSINGUSINGUSINGUSING US INGUSINGUSINGUSINGUS 
INGUSINGUSING USINGUSINGUSINGUSINGUSINGUSINGUSING":REM73 


160 PRINT+USING 


USING 


170 PRINT+USING 


USING USING USING 
180 PRINT+USINGUSINGUSINGUSINGUSINGUSING USING 
USING USING 


USING USING USING USING 
USING USING 
USING USING 


USING USING 
USING":REM3A 
USING USING USING USING 


USING" :REM80 
USING USING 
US INGUSINGUSINGUSING USING USI 


NG USINGUSINGUSINGUSING” :REMOO 


190 PRINT+USING USING USING 
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USING USING USING USING 


USING USING USING USING":REMEC 
200 PRINT+USING USING USING USING USING USING USING 
USING USING USING USING" :REM62 
210 PRINT+USING USING US INGUSINGUSINGUSING USINGUSINGUSI 
NGUSINGUSING  USINGUSINGUSINGUSINGUSINGUSINGUSING USINGUSINGUSIN 
GUSINGUSINGUSINGUSING USING USING USINGUSINGUSINGUSI 
NGUSINGUSINGUSING":REM2F 
220 PRINT:PRINT'VERSION 1.3 COPYRIGHT (C) TRACE ET L'AUTEUR”: 
REMEC 
230 PRINT:GOSUR10000:REMAC 
1000 INPUT"NOMBRE DE JOUEURS"3N:IFN<10RN>10PRINT'ENTRE 1 ET 105 
VP!":GOTO1000ELSEIFN=1THENR=STRINGS (278) :REM17 
1005 DIMP CN) >F CN) 7RCN? 10) 7H(N>N) 7 GUN > 10) :FORI=ATON:PRINT "NOM DU 
JOUEUR"3I3R3:INPUTP(I):F(1)=10000:NEXT:REM74 
1010 PRINT'MERCI...":PRINT:PRINT'VOULEZ-VOUS LES INSTRUCTIONS (0 
/N)7":GOSUB12000:1F01="N"THEN1500:REMAD 
1020 CLS:PRINT"BIENVENUE DANS L'ENFER DU JEU: PIGEON"::IFN>1PRIN 
T'S"::REM5D : 
1030 PRINT” !!":PRINT"'VOICI LE MODE DE PARI DE LA ROULETTE QUI V 
À VOUS PLUM,.., HEU... JE VEUX DIRE: QUI VA VOUS APPORTER LA FORT 
UNE.":REMCS 
1040 PRINT'VOUS POUVEZ PARIER SUR LES NUMEROS DE 1 A 36; LE RAPP 
ORT ETANT DE 36 FOIS LA MISE.POUR UN RAPPORT DE 2 FOIS» VOUS PO 
UVEZ AUSSI PARIER SUR PAIR: IMPAIRr PASSE (19 À 36) MANQUE (1 A 
18)?ROUGE OU NOIR."”:REM86 
1050 PRINT'LES NUMEROS NOIRS SERONT SOULIGNES SUR LE TAPIS A L’E 
CRAN. SI LEZERO SORT: LA BANQUE RAMASSE ! ON NE PEUT PAS MISER S 
UR CE CHIFFRE.":PRINT:GOSUB100D0:REMF 1 
1060 PRINT"VOICI COMMENT MISER:":PRINT"VOUS AVEZ DROIT A DIX MIS 
ES PAR TOUR.POUR CHAQUE MISE» TAPEZ VOTRE NUMERO (OU ‘PAIR'; 
OÙ “MANQUE”; ETC)? ET <ENTERD>» PUIS LE MONTANT DE VOTRE MISE» SU 
IVI DE L’INEVITABRLE <ENTER>.":REME3 
1070 PRINT"SI VOUS FAITES MOINS DE 10 MISES» ENTREZ ‘STOP' QUAND 
VOUS AVEZ FINI. VOUS DEMARREZ AVEC 10000 F. POUR GAGNER; IL FAU 
T DEVENIR MILLIONAIRE''! BONNE CHANCE...":PRINT:GOSUB10000: 
REM7A 
1500 CLS:PRINT325 "FAITES VOS JEUX...":REM14E 
1520 PRINTA128:" 1 2 3 4 si & 74 8 9'EPRINT:PRINT 
AD 1 17 113 14245, 16 17 18.-PREINIEPRINE SU 01 
2229 2400293026, 27 5 PRINIEPRINFONP OO EN ar nd 
4 35 36”:REM1B 


1530 @=STRINGS (42188) :@1=STRINGS (36: 176) :REMEC 
1540 FORI=64TOS76STEP128:PRINTAIrGQi::NEXT:REMOS 


1580 DATA214r638710711213r715717r19122224726r2879:91:3335: N0OS 
DES NOIRS B4 

1590 RESTORE:FORI=1T018:READJ:NEXT:REM34 

1600 FORI=1TOI8:READJ:PRINTAJ2@3::NEXT:REMCE 

1610 DATA197:205r21322217321132523393r794173491449r4btr4b924771577 
198125892597: 605:REM30 

1620 FORI=S5TO29STEP6:RESET(O:1):SET(7221):NEXT:REM49 

16830 FORJ1=1T073STEP8:FORJ?2=5T029:SET(J4rJ2) :NEXTJ22J1:REMF1 
1640 PRINTA3107 "MANQUE ” ; :PRINTG5667 "PASSE": :PRINTA437@:" : NOIR 
"31REM33 

1700 FORI=1TON:REM7E 

1710 PRINTA/704»STRING$S(64732):PRINT9/04P(1)3";ENTREZ VOS MISES 
(ENTREZ "CHR$(34)"STOP"CHR$(34)" QUAND CE SERA FINI)":FORJ=11010 
:REMDA 

1720 PRINTa768; "MISE NUMERO"3;J3": VOUS AVEZ"3F(I):"FRANCS. P 
:REMF 1 

1730 INPUT'SUR QUOI MISEZ-VOUS":3R(12J):IFR(1r7J)="STOP"THEN1900EL 
SEPRINTA832;CHR$ (255): :PRINTA832:3::INPUT'COMBIEN MISEZ-VOUS LA-D 
ESSUS":;G(I1:J):REM74 

174D R=LEFTS$(R(I:J)23)%IFVAL(R)>OANDVAL(R)<37THEN1800ELSEIFR="PA 
I’ORR="IMP"ORR="PAS"ORR="MAN"ORR="ROU"ORR="NOI”"THEN180DELSEPRINT 
“SUR QUOI??!"3;:FORK=1TO2000:NEXTK:PRINT9768 7 :PRINT:PRINT:GOTO17? 
O:REM99 

1800 IFG(I:J)>F(I)THENPRINT'MAIS VOUS N'AVEZ QUE":;F(I)3"F! APPRE 
NEZ À COMPTER!":FORK=1TO2000:NEXTK:PRINTA/687:PRINT:PRINT:GOTO17 
20 ELSEF(I)=F(I)-G(I1:J):REM22 

1810 IFF(I)=0OTHENJ=10:REM29 

1850 NEXTJ:REMEE 

1900 IFJ>9THEN2000ELSEFORK=J+1TO10:R(I7K)="":G(I2K)=0:NEXTK:REME 
G 

2000 NEXTI:REMS59 

2010 CLS:M=RND(37)-1:REMA7 


2020 PRINT+ DEFDEFDEFDEFDEFDEFDEFDEFDEF”":REM44 

2030 PRINT+ DEFUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUS 
INGUSINGUS INGUSINGUSTNGUSINGUSINGDEF :REMD9 

2040 PRINT+ DEFUSINGUSINGUSINGUSINGSET USING SETUSING 


USINGUSINGUSINGDEF ":REM43 
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2050 PRINT+ DEFUSINGUSINGUSINGSET USING SETUSINGU 
SINGUSINGDEF”" :REME6 
2060 PRINT+ DEFUSINGUSINGSET SETDEFSET USING SETDEFSET 
SETUSINGUSINGDEF”":REMBE 
2070 PRINT+ DEFUSINGUSINGSET SET SETDEF USING DEFSET SET 
SETUSINGUSINGDEF”":REMB4 
2080 PRINT+ USINGUSINGUSING DEFSETUSINGSETDEF U 
SINGUSINGUSING":REM98 
2090 PRINT+ USINGUSINGUSINGUSINGUSINGUSINGUSINGUS INGUSINGUSINGU 
SINGUSINGUS INGUS INGUSINGUS INGUS INGUS INGUS INGUS INGUSINGUS INGUSING 
USINGUSINGUSINGUSINGUSINGUSING”":REMB8A 
2100 PRINT+ USINGUSINGUSING SETDEFUSINGDEFSET U 
SINGUSINGUSING”:REM84 
2110 PRINT+ SETUSINGUSINGDEF DEF DEFSET USING SETDEF DEF 
DEFUSINGUSINGSET":REM32 
2120 PRINT+ SETUSINGUSINGDEF DEFSETDEF USING DEFSETDEF 
DEFUSINGUSINGSET":REM28 


2130 PRINT+ SETUSINGUSINGUSINGDEF USING DEFUSINGU 
SINGUSINGSET”:REM66 

2140 PRINT+ SETUSINGUSINGUSINGUSINGDEF USING DEFUSING 
USINGUSINGUSINGSET”:REMDE 

2150 PRINT+ SETUSINGUSINGUSINGUSINGUSINGUSINGUS INGUSINGUS 
INGUSINGUSINGUSINGUSINGUSINGUSINGSET” :REMBA 

2160 PRINT+ SETSETSETSETSETSETSETSETSET":REM4C 


2170 PRINT940:"RIEN NE VA PLUS!1"3:REM9F 
ain FORI=1TO20:PRINTA122:RND(36)-13::FORJ=1TO9O0O:NEXTJ:1:REM1S 
200 CLS:PRINTM;:IFM=OPRINT”> ET LA BANQUE RAMASSE !!":GOSUR1000 
0: GOTO4000:REMER4 
2210 RESTORE:FORI=1T018:READMI:IFMI=MTHENGI="NOIR":GOTO2220ELSEN 
EXTI:@1="ROUGE":REMCA 
_ IFM/2=INT(M/2) THENG2="PAIR"ELSEQ2="IMPAIR" :REM62 
230 1FM<19THEN@3= "MANQUE "ELSE83= "PASSE ":REM10 
2240 PRINT”7":@145""3@25" ET ":Q33" !":PRINT:REMS8D 
3000 FORI=1TON:PRINTP(I)"7 "3:F=F(I):FORJ=1TOI0:REMSS 
3010 R=LEFT$#(R(I2J)23):REM02 
3020 1F°” "+RESTRS (M) THENG=G(17J)#36ELSEIFR=LEFT$ (@1:3)0RR=LEFTS ( 
G223)0RR=LEFT$(0373) THENG=G({I:J)x2ELSES30S0:REMEC 


3030 PRINT'VOTRE MISE NUMERO"3;J3"VOUS RAPPORTE”";G3"FRANCS":F(I)= 
F(I1)+G:REM36 
3050 NEXTJ:IFF=F(I)THENPRINT'MISEZ MIEUX LA PROCHAINE FOIS!":REM 


3060 GOSUB10000:PRINTAO7M3"7"@1"7"@2" ET "@3" !":NEXTI:REMBA 
4000 CLS:PRINT"'## JOUEUR ##%"77"$$ CREDIT $$":PRINT:REM48 
4010 FORI=1TON:PRINTP(I)>?F(I):NEXT:GOSUB10000:REME1 
5000 11=1:FORI=1TON:REMDO 
5010 IFF(I1)<F(I)THENII=I:REMAS 
5020 NEXTI:REM81 
5030 IFF(11)>1E6THENGO=1:GOTO9000:REMSD 
5040 IFF(11)=0OTHEN8DOO0:REMD6 
5050 FORI=1TON:REMSES 
5060 IFF(I)THENSZ200:REM29 
5070 CLS:PRINTP(1)3"VOUS ETES FAUCHE! Y A-T-IL UNE BONNE POIRE” 
:PRINT"'QUI VEUILLE BIEN VOUS FAIRE UN PRET (0/N)?":REMDS8 
5080 GOSUB12000:1F01="0"THENS150:REM4B 
5090 PRINT"IL FALLAIT VOUS FAIRE DES AMIS AVANT7"3P(1)"!":PRINT" 
LA MAISON NE FAISANT PAS DE CREDIT» VOUS ETES EXCLU DU JEU.":G0S 
UB1000D:REMC2 
5100 F(I)=F(N):P(I)=P(N)2FORJ=ÎTON:H(I7J)=H(NrJ):NEXTJ:N=N—1: GOT 
SO:R 
2505 INPUT PQUEL EST LE NOM DE CE NAIF QUI RISQUE AINSI SON ARGEN 
T':0:REMBD 
5160 FORJ=1TON:IFO=P(J)THENS170ELSENEXTJ:PRINT"CE QUIDAM EST INC 
ONNU AU BATAILLON !'":GO0T05150:REM7E 
5470 PRINTP(J):"?VOUS AVEZ":F(J)3"F.":PRINT'COMBIEN PRETEZ-VOUS 
A "3P(I1)3::INPUTF2:REM83 
5180 IFF2>F(J)THENPRINT”VOUS ETES BIEN GENEREUX AVEC L'ARGENT QU 
E VOUS N'AVEZ PAS...":GOT05170ELSEPRINT”'OK...":F(J)=F(J)-F2:F(1I) 
=F2:PRINTP(J)3"IL VOUS RESTE”:F(J)5"F."2H(12J)=H(l1rJ)+F2:REM9C 
5190 GOSUB10000:REM24 
5200 NEXTI:REMCC. 
Dr FORI=1TON:FORJ=1TON:F2=H{1:J):1IFF2=0THENS300:REMEO 
230 IFF(I)<2*F2THENS300:REM?E 
5240 PRINTP(I1)3"}VOUS AVEZ"3F(I1)"F. VOUS DEVEZ"3F235"F A "P(J):”. 
"2PRINT'LE REMBOURSEZ-VOUS (O/N)7":GOSUB12000:REM58 
5250 IFO0i="N"THENPRINT"'PEUT-ETRE ATTENDEZ VOUS D'HERITER DE VOTR 
E GRAND-TANTE. MAIS SI VOUS ATTENDEZ TROP? C'EST ELLE QUI HERITE 
Ra CAR":PRINTP(J)3" VOUS ASSASSINERA!":GOSUB10000:GOTO05300:REM? 
5260 PRINT'OK...":F(1)=F(1)-F2:F(J)=F(J)+F2:H(IrJ)=0:REMS4 
5270 PRINT:P(I1)2P(J):PRINT"CREDIT:"?F(1)?F(J):GOSUE10000:REM7D 





2300 NEXTJ7I:REMF2 

3310 LO=LO+1:GOT01500:REMDé 

8000 PRINT”VOUS ETES "3;:IFN>1THENPRINT TOUS FAUCHES'!"ELSEPRINT'F 
AUCHE!":REM19 

8010 PRINT'C'EST LAMENTABLE! SANS METTRE AU POINT UNE SUPER-MART 
INGALE>IL ETAIT POSSIBLE DE PERDRE MOINS VITE'!":REME4 

8020 PRINT'PORTIER: METTEZ-MOI "3:IFN=1THENPRINT'"CET INDIVIDU"EL 
SE PRINT’CES INDIVIDUS":REMEC 

8030 PRINT'DEHORS PAR LA PORTE DE SERVICE.”":GOSUB10000:REM4A 
8050 CLS:GO0OTO9500:REMS6 

9000 CLS:PRINT”$$$ FELICITATIONS! $$$”:PRINT'GAGNANT :°: 
9010 FORI=1TON:IFI=I1THEN9O30:REMD9 

9020 IFF(1)=F(11)THENPRINTG717"S"3:PRINTP(1):"2":REMA9 
9030 NEXTI:PRINTP(11)3"!":PRINT'BRAVO! LA MAISON EST MALHEUREUSE 
MENT DANS L'OBLIGATION D'AJOUTERQUE GAGNER”":F(14):"F EN’3LO:"TOU 
RS':REMES 

9040 IFLO<20THENPRINT'LUI SEMBLE ETRE LA PREUVE D'UNE CHANCE FOR 
T SUSPECTE,ELLE ESPEREQUE QUELQUE ECHEANCE CRIARDE NE VOUS A PAS 
POUSSE A FORCER LA MAIN AU HASARD.”":GOT09500:REMCD 

9050 IFLO<SOTHENPRINT'EST UNE PERFORMANCE NOTABLE QUI VOUS VAUT 
D'ETRE INTERDIT DANS CE CASINO POUR CAUSE DE CHANCE À REPETITIO 
N.":GOT09500:REMA#4 

9060 PRINT'MERITE UN COMPLIMENT POUR VOTRE PATIENCE ET VOTRE OBS 
TINATION. ON S'INTERROGE TOUTEFOIS SUR VOS AUTRES ACTIVITES:QAUI 
SEMBLENT VOUS PERMETTRE DE PERDRE AUTANT DE TEMPS ICI.":REMCI 

- 9500 PRINT:PRINT"BON: VOULEZ-VOUS REJOUER (0/N)?":GOSUB12000:1F0 
1="O"THENRUNELSEPRINT"N'OUBLIEZ PAS LE PERSONNEL”: IFGOTHENPRINT” 
UNE PLAQUETTE DE MILLE FERA L'AFFAIRE."ELSEPRINT'NOUS NOUS CONTE 


REMDO 





NTERONS DE VOTRE CHEMISE.”:END:REM7F 
9999 END:REM4A 


10000 PRINTA960 "APPUYER SUR <ENTER> POUR CONTINUER”; :REM78 

10010 FORI9=1TO200:NEXTIS:0=INKEY#:1FO=CHRS (13) THENCLS:RETURNELS = 
EPRINTA960;CHR$(240) 3 :FORI9=1TO200:NEXTI9:GOTO10000:REM18 D 
12000 91=INKEY$:1F01="0"ORO1="N"THENRETURNELSE 12000:REM4B 


Ce programme a la particularité d'utiliser l'astuce 
dite des "supergraphiques". 
le en fait la manipulation décrite dans le commen- 


Ce nom ronflant dissimu- 


vel 2 p. C1). Ce raffinement permet de ne pas im- 
primer "NOM DU JOUEUR 1" mais "NOM DU JOUEUR" tout 
court. 


taire de la liste. Rien de sorcier, mais toujours * 1010 : vous propose les instructions 
plus long à expliquer qu'à appliquer... * 1020 à 1070 : instructions 
* 1500 à 1640 : dessin du tapis de jeu, se décompo- 
sant en : 
PSP ER PRBEES ER TNCTPALES - 1520 : imprime les 36 numéros en tableau de 


4 lignes sur 9 colonnes. 


- 1540 : cinq barres horizontales (la chaîne 
ENTIERS : Q1) encadrent les 4 lignes du tableau. 
N = nombre de joueurs - 1580 : ce sont les numéros noirs, inutilisés 
ME=n#sorti ici 
G@ = drapeau, mis à 1 s'il y a un gagnant (en 5030) - 1590 : ces DATA sont lues (et simplement sau- 
LO = nombre de tours écoulés tées). 
DOUBLE PRECISTON : - 1600 : les DATA de la ligne 1610 contiennent 

les emplacements des cases "noires" (corres- 

F(N) = crédit des joueurs pondant à des numéros noirs) du tableau. A 
G(N, 10) = montant des mises chaque emplacement, un pavé graphique (la 
H(N, N) = montant des dettes (1er indice = emprun- chaîne Q) est imprimé, soulignant ainsi les 


teur, ?ème indice = prêteur) 
CHAINE DE CARACTERES : 


numéros noirs, comme promis dans les instruc- 


P(N) = nom des joueurs RE 

: e - 1620 à 1630 : correction de quelques bavures; 
NAN NES Nene een et tracé des barres verticales du tableau 
Q1 couleur du n° sorti (ROUGE ou NOIR) F = à 


Q2 = parité du n° sorti (PAIR ou IMPAIR) 
Q3 = champs du n° sorti (MANQUE ou PASSE) 
COMMENTAIRE DE LA LISTE DU PROGRAMME "ROULETTE" 


D'aucuns auront probablement eu la curiosité de sur- 


COPA (PS 0 


voler la liste du programme avant de lire ces lignes. 


Les lignes 150 à 210 et 2020 à 2160 les ont-elles 
surpris ? Les explications arrivent ! Mais procédons 
par ordre. 

* jignes 5 à 20 : 
bles. 

* 110 à 220 : titre. Les PRINT des lignes 150 à 210 
dessinent le mot ROULETTE en gros caractères. Voir 
détail plus bas ! 

* 1000 à 1005 : entrée du nombre de joueurs et de 
leurs noms. À noter : s'il n'y a qu'un seul joueur 
(N=1), la chaîne R est initialisée, et vaut deux 
caractères CHR#(8), qui font reculer le curseur de 
deux crans lorsqu'elle est imprimée (manuel du le- 


initialisation des types de varia- 


* 


* 


* 2200 à 2240 


1700 à 2000 : boucle d'entrée des mises des joueurs. 
Validation des objets en 1740, et des montants en 
1800. 

En 1810, lorsqu'un joueur a misé tout son argent, 
on passe directement au joueur suivant. En 1900, 
les mises inemployées sont mises à zéro. 

2010 : choix du n° gagnant, de O0 à 36. 

2020 à 2160 : dessin de la roue (même chose que 
pour le titre). 

2180 : boucle d'attente (pour maintenir le sus- 
pense). Des numéros "bidons" s'affichent en haut, 

à droite, sur l'écran. Vous pouvez parfaitement 
raccourcir cette boucle. 

: affichage du résultat. 

3000 à 3060 : affichage des mises gagnantes de 
chaque joueur. 

4000 à 4010 : affichage du crédit de chaque joueur. 


5000 à 5020 : Ii devient l'indice du joueur le 
plus riche, 
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* 5030 : Y a-t-il un millionnaire ? 
* 5040 : tous les joueurs sont-ils ruinés ? 


* 5050 à 5200 : prêts entre joueurs. En 5100, si un 
joueur ruiné ne trouve aucun prêteur, il est éli- 
miné du jeu : le joueur d'indice N prend sa place 
(donc son indice), et le nombre de joueurs devient 
N-1. On recommence ensuite une boucle. En 5160. le 

prêteur est identifié, J devient son indice. 


* 5220 à 5300 : si le crédit d'un joueur atteint le 


double de ses dettes, il lui est offert de rembour- 


ser (test en 5230). 


* 8000 à 8030 : fin de partie si tous les joueurs 
sont ruinés. 


* 9000 à 9060 : fin de partie avec gagnant (s). 
La boucle 9010-9030 détermine les ex-aequos éven- 
tuels. Commentaire en fonction du nombre de tours 
écoulés. 


* 9500 : faites une nouvelle partie, ou partez en 
laissant un pourboire au "croupier". 


* 10000 à 10010 : routine d'attente avec clignote- 
ment du message. 


* 12000 : routine "oui ou non! avec INKEYS. 


Passons enfin à l'explication de ces fameux graphi- 
ques (voir à ce sujet l'article sur les graphiques 
du TRS80). 


Les lignes 150 à 210 et 2020 à 2160 sont des affi- 
chages de "supergraphiques" (c'est là le nom consa- 
cré, cf TRACE n° 3). Les chaînes de caractères affi- 
chées par les PRINT contiennent uniquement des blancs 
et des caractères graphiques. Trois caractères dif- 
férents sont employés, de codes respectifs 131, 176 
et 191. Mais cet usage n'a pas été prévu par le Le- 
vel 2, aussi ces codes sont-ils, lors du listage, 
respectivement transformés en SET, DEF et USING. Le 
BASIC considère en effet que ces codes sont ceux 
d'instructions. 

Mais comment diantre entrer ces supergraphiques(ta- 
per les lignes telles qu'elles sont listées ne don- 
nera aucun graphique) ? 


20990 FRESUES ANRT 
20010 ‘ Toutes les lignes commencant par PRINT+ seront 


20020 ‘ transformees en PRINT” 


{Pas d'espace separateur) 


20030 AD=PEEK(16548)+254*PEEK(16549) ‘ debut zone BASIC 
20040 GOSUB 201930 È 
20050 LC=PEEK(AD)+256%xPEEK (AD+1) 
20060 IF L£C=0 THEN END 

20070 AD=AD+4 : GCOSUR 20130 


20080 IF PEEK(AD)<>178 THEN 201270 


20090 AD=AD+1 : GOSUB 20130 


20100 IF PEEK(AD)<3>205 THEN 20120 


20110 POKE AD:34 
20120 AD=LC : GOTO 709040 


20130 IF AD<32747 THEN RETURN 
20140 AD=-1+(65534-AD) : RETURN 


CONSIGNES PRATIQUES D'ENTRÉE DU PROGRAMME 


a) Frappez le programme tel qu'il est donné dans la 
liste et faites-le suivre du programme "PLUSQUOT" 
(lignes 20000 à 20140). 


b 


— 


Vérifiez ensuite la conformité des lignes entrées 
en vous servant du programme VERCS publié dans le 
numéro 2 de TRACE (cette mesure est optionnelle 
mais plus prudente...). Corrigez les erreurs 
éventuelles. 


c) Sauvez le tout. 


d) Exécutez le programme PLUSQUOT en frappant : 
RUN 20000. 


e) En listant le programme, vous remarquerez que 
les PRINT+ ont été transformés en PRINT" (atten- 
tion : pas d'espace entre PRINT et +). 


€ 


_ 


Relancez le contrôle de checksum (VERCS). Les 
lignes contenant les "super-graphiques" doivent 
donner de nouvelles valeurs (voir ci-dessous). 


&) Eventuellement , vous pouvez alors supprimer 
PLUSQUOT (DELETE 20000-20140). Sauvez votre pro- 
gramme de roulette qui est maintenant opération 
nel. 


Remarque : Pour éditer une ligne "supergraphique" 
remplacez tout d'abord PRINT" par PRINT+, puis fai- 
tes votre modification. Il faut ensuite utiliser 
PLUSQUOT pour changer le + en ". 
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ajustement entier 
lien de chaine 
fin du rrogramne 
rointe ere instr 
est-ce PRINT ? 
octet suivant 
est-ce + 7 

oui. Ÿ mettre 
ligne suivante 


READY 

>print 
LIGNE 
LIGNE 
-LIGNE 
LIGNE 
-LIGNE 
LIGNE 
LIGNE 
-LIGNE 
LIGNE 
LIGNE 
-LIGNE 
-LIGNE 


CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUH TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUV 

CHECKSUM TROUVE 
CHECKSUH TROUVE 
CHECKSUM TROUVE 
CHECKSUM TROUVE 


—LIGNE 
“LIGNE 
“LIGNE 
LIGNE 


-LIGNE 
-LIGNE 
-LIGNE 
-LIGNE 
-LIGNE 
-LIGNE 
READY 
> 





mémento 








Lorsqu'on achète le programme EDTASM+ de la firme 
MICROSOFT, il est fourni avec celui-ci (du moins chez 
Sideg !), un résumé francisé. En ce qui concerne 
l'utilitaire ZBUG qui est incorporé à EDTASM+ et qui 
est aussi enregistré séparément sur la cassette ou 
sur la disquette, il n'existe pas encore à l'heure 
actuelle et à ma connaissance, de traduction fran- 
çaise (pour un essai d'EDTASM+, voir TRACE numéro 2). 
Cet article sur Z-BUG devrait combler partiellement 
cette lacune. 


Entre les versions cassette et disquette, il y a de 
légères différences mais les ordres d'entrée-sortie 
sont les mêmes au "C" ou au "D" près. Il est rappelé 
que 3% (escape) est généré par l'appui simultané des 
touches "SHIFT" et "Flèche haute". De même, il faut 
se souvenir que toute valeur introduite est considé- 
rée comme étant en hexadécimal si elle n'est suivie 
d'aucun suffixe. Pour spécifier une valeur décimale, 
il faudra la faire suivre de "T" (Ten = dix en an- 
glais), pour une valeur octale ce sera "Q" et pour 
une valeur ASCII il faudra l'écrire entre deux guil- 
lemets. 


Z-BUG permet de faire la mise au point des program- 
mes en assembleur que l'on a crées au moyen de l'é- 
diteur ou de modifier des programmes objets exis- 
tants. Lorsque le symbole "Æ#" apparaît sur la gau- 
che de l'écran, cela signifie que Z-BUG est prêt et 
qu'il attend une commande. Pour afficher une position 
mémoire du programme, on écrit simplement son adres- 
se suivie de "/" (slash). Quand on est dans un des 
modes d'affichage, on peut modifier le contenu du 
programme en écrivant la nouvelle valeur suivie d'un 
appui sur la flèche basse. Pour passer à l'adresse 
suivante on appuie aussi sur flèche basse. Lorsqu'on 
est en mode "symbolique", l'adresse est remplacée 

par l'étiquette du programme source éventuellement 
suivie du signe "+" et d'un nombre inférieur à 32. 

La fonction que j'appelle "Trace" dans le résumé qui 
va suivre, est en fait un affichage du bloc de mémoi- 
re spécifié. À ce moment-là, l'appui simultané de 
"SHIFT" et "@ " arrête le défilement et BREAK en 
est la commande abortive. 


Lorsqu'on exécute la commande "gR", tous les regis- 
tres sont affichés sur l'écran, sauf le registre R 
(refresh). Ceux-ci peuvent être modifiés ainsi que 
les registres doubles, c'est-à-dire : A, B, C, D, E, 
FH, LuBC,/ DE, HL, SP; PC EX IT etre doen— 
mentation américaine conseille de ne pas modifier 

les registres PC et SP car ceux-ci sont utilisés par 
ZBUG. Les "points d'arrêts" sont bien utiles en mise 
au point, car ils indiquent si le déroulement du pro- 
gramme passe bien par un (ou plusieurs) endroits don- 
nés.En faisant la commande "adrgG", on exécute le 
programme et on s'arrête sur le premier "point d'ar- 
rêt" rencontré (si spécifié). Dans ce cas, l'usage 
des commandes "adre" ou "@" permettent d'exécuter 

la prochaine instruction. 


Dans le résumé qui suit, j'ai distingué trois par- 
ties : une partie commune aux deux versions, celle 
qui est spécifique aux cassettes et enfin celle qui 
est relative aux disquettes. 









Version commune 






: Affichage en "ASCII" 
$B : Affichage par octets (8 bits) 
nb$C : Execution d'un programme depuis 
un “Point d‘'arret" 
$0 : Affichage des “Points d'arret" 
$E : Retour a l‘editeur-assembleur 
adr$G : Execution d’un programme depuis 
une adresse 
n$l : Les modifications en entree se 
font en base n 
$SM : Affichage par mnemonique Z-80 
SN : Etiquette numerique 
n$0 : Affichage en base n 
SR : Affichage des registres du Z-80 
$S : Etiquette symbolique 
add adf$T : Fonction “Trace 
$W : Affichage par mot (16 bits) 
adr$X : Creation d’un “Point d'’arret" 
$SY : Suppression des “Point d'arret" 
Suppression d’un "Point d'arret" 
























Version cassette 





obj$L : Chargement d’un programme en 
code objet sur Cassette 

add adf ado o0bj$P : Sauvegarde du code 

objet sur Cassette 


Version disquette 











SK : Retour au SED 
obi$LC : Chargement d'un programme en 
code objet ( Cassette ) 
“fic"$SLD : Chargement d’un programme 
code objet ( Disque ) 
add adf ado nom$PC : Sauvegarde du 
code objet ( Cassette ) 
add adf ado “"fic"$PD : Sauvegarde du 
code objet ( Disque ) 














LEGENDE 


add : Adresse de debut 
adf : Adresse de fin 














ado : Adresse d’origine 

adr : Adresse 

fic : Nomfic/ext.Motdepasse:Num_ lecteur 
m : Numero du “Point d'arret" 


(m = O0 a 7) 
n ES ETO ET 
nb : Nombre de passage dans une boucle 
obj : Nom du programme objet (Cassette) 
reg : Registre 
SED : Systeme d'exploitation de 
disquette 
Shift fleche haute (escape) 


Christian Kraemer 
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utilitaire 
Affichez vos 
minuscules 


CONFIGURATION DE BASE : MODELE 1 CASSETTE OÙ 
DISQUETTE - 16: 32 OÙ 48k de 
inuscules à l'ecran le 15/06/82 
11 faut d'abord faire la minuscule modification 
Proposee Par Alain PINAUD a la Page 124 de 
LA PRATIQUE DU TRS-80 : volume 111 
CLS : PRINT TAB(25) "# MINUSCULES #" : PRINT:REMB& 
CLEAR 103 : L=PEEK(16561) : H=PEEK(16562) : HL=L+H4256-53:REM 


GOSUB 160 3 POKE 16561:L : POKE 16562»H:REMC9 
HL=HL+3 : GOSUB 160 3 A=HL :GOSUB 170 :REMOA 
1F PEEK(16396) <> 201 THEN DEFUSR=A ELSE POKE 16526:L : POKE 
16527: H:REMEA 
100 FOR 1=0 TO 50 : A=1+HL : GOSUB 170 3 READ B : POKE 4:B :NE 
XT:REMEC 
110 PRINT “#* NOUVEAU MEMORY SIZE ="HL-1 : PRINT:REM7F 
120 HL=HL+21 : GOSUB 160 3 A=HL-13 : GOSUB 170 : POKE A?L:RE 
MDC 
130 A=HL-12 : GOSUB 170 3 POKE A:H:REMAO 
140 PRINT"Tarez : ?USR(1) Pour Minuscules au clavier » ou 
?USR(D) Pour le clavier NORMAL":REMC1 
150 CLEAR 50 : PRINT : DELETE 10-230 : END:REMF3 
160 H=INT(HL/256) : L-256*H : RETURN:REMDC 
170 IF À > 32787 : A=A-65536:REM41 
180 RETURN:REMBA 
190 DATA 2053127010: 125;183:040:007 7033:088:004:REM43 
200 DATA 034:030:064 201033 088 » 004034030064 201:REM8O 
210 DATA 221:110:003:221;102:004:2181541004221:REM46 
DATA 126:005:183:040:001 : 119121254032: 218:REM27 
DATA 006:005: 254» 128:210:166:004:195:125;004:REMt6 





utilitaire 





C'est bien connu, le générateur de caractères du mo- 
dèle 1 contient les lettres minuscules... mais on ne 
peut pas les afficher à l'écran ! 


On trouve à la page 124 de la PRATIQUE DU ent 
me 3, la description d'une modification à appor 

câblage de l'unité centrale (ajout d'une RAM e 
inverseur), permettant l'accès aux minuscules. 
Malheureusement, cela ne suffit pas pour les visua- 

liser autrement que par des POKE aux adresses 15369- 
16383. 


Pour que ça marche vraiment, il faut adjoindre à la 
modification du "matériel" une modification du logi- 
ciel qui rende la première compréhensible à l'inter- 
préteur BASIC. 

C'est l'objet du programme ci-après, qui implante 
une routine binaire de 51 octets en fond de mémoire, 
juste en dessous du memory size précédemment défini, 
après déplacement de ce dernier. Le programme tourne 
sur tous les modèles 1, niveau 2, cassette ou disque, 
UK à L8K. 


+ 
A 
mo 
ei 


Après un RUN, il suffit d'entrer au clavier ?USR(1) 
pour accéder aux minuscules (en SHIFT), ou ?USR(@) 
pour revenir au clavier normal (ne pas oublier de 
basculer l'inverseur). 


Le programme BASIC est effacé de la mémoire après 


son lancement, mais la routine binaire reste active 
jusqu'à l'arrêt de l'ordinateur. 


Roger Brousmiche 











Evitez les rebonds 





Ce court programme utilitaire est destiné aux seuls 
utilisateurs du TRS80, modèle 1, niveau 2, dont les 
nerfs sont mis à vif par les frappes multiples occa- 


sionnées par le rebondissement des touches du clavier. 


Le programme SYSTEM KBFIX que vous avez peut-être 
reçu en même temps que votre ordinateur, élimine ce 
défaut, mais son chargement constitue une opération 
longue, compliquée et aléatoire. Par exemple, iln'est 
pas recopiable et il exige la définition préalable 
d'un MEMORY SIZE précis. 


Rien de tel avec le programme BASIC que nous vous 
proposons. Quelie que soit la taille de votre mémoire 
vive (de HK à L8K), MEMORY SIZE? (ENTER) , CLOAD, puis 
RUN suffit pour activer la sous-routine anti-rebonds, 
qui implante 5 octets en mémoire haute après avoir 
déplacé le MEMORY SIZE antérieur de 45 ou 47 octets. 


Donc, pas de complexe, MEMORY SIZE? nnnnn (ENTER) 
convient tout aussi bien, l'espace mémoire ainsi pro- 
tégée (par exemple pour la SOMME DE CONTROLE du n° 

de TRACE), restera protégé. 
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4 * CONFIGURATION DE BASE : MODELE 1 NIVEAU 2 K 
2 ‘ ANCIENNE VERSION {MEMORY SIZE) - 4 À 48} 
3" 


STABILISATION DU CLAVIER 
Roser BROUSMICHE 07/82 
CLEAR 97 : L=PEEK(16561) : H=PEEK(48562) : DE=L+H#256-66:REMF 


PRINT “* NOUVEAU MEMORY SIZE ="DE-1:REMBC 
HL=DE-3 : COSUB 130 : POKE 16561:L : POKE 165627H:REMB3 
D=PEEK(16526) : E=PEEK(16527):REME2 
HL=DE : GOSUB 130 : POKE 16526:L : POKE 16527:H:REM9E 
FOR 1=0 TO 44 : A=]l+HL : GOSUB 140 : READ E : POKE 48 
T:REMOQ 
90 PRINT “* LE CLAVIER EST STABILISE“:REM63 
100 HL=DE+15 : GOSUB 130 : A=DE+27 : GOSUB 140 : POKE À; 
DE+28 : GOSUB 140 : POKE AH:REMFS 
110 A2DE+7 : GOSUB 140 : B=USR(A):REMEB 
120 POKE 16526»D : POKE 16527:E : DELETE 140 - 210 : END:REM96 
130 H=INT(HL/256) : L=HL-H*x256 : RETURN: RE 
140 IF À > 32767 : A=A-65536:REMSF 
150 RETURN:REMDS 
160 DATA 2057127: 10:REMEE 
170 DATA 34:22»64:201:33r54:REMSE 
180 DATA 64:1:1r56:22:0r 10981747 115:REMSB 
190 DATA 163:32;8; 20:44» 203 112420: O2REM6F 
200 DATA 201:95:197r1:220:5:205:96:07199:REMBS 
210 DATA 10:163200:195:251) 3:REMD3 





Attention : en fin de programme (ligne 12@), 1a fonc- 
tion USR est restituée à sa derniere adresse, et le 
programme est effacé, de sorte qu'un NEW n'est pas 
nécessaire avant l'écriture d'un nouveau programme : 


N'oubliez pas de faire un CSAVE avant le premier RUN! 


——————————— Roger Brousmiche 


matériel 





Un PC 1500, pourquoi faire 





BSSS0008S000 


F9 ©1 3 


On SE 





Rumeurs puis confirmations annoncent la commerciali- 
sation du TRS80 PC-2 pocket. Cette machine, par ses 
capacités et son langage BASIC évolué, est le succes- 
seur direct du premier pocket de chez TANDY ; mais 
elle est aussi, d'après les descriptions, la copie 
quasi-conforme du SHARP PC-1500. Quelles sont donc 
les caractéristiques du PC-1500 ? 


D'un gabarit plus important que le PC-1211, il est 
doté d'un microprocesseur 8 bits mais, malheureuse- 
ment il faudra un descriptif de SHARP sur son jeu 
d'instruction pour programmer en langage machine... 
Son clavier de 65 touches, est de type "QWERTY" et 
il est peu probable qu'une version française de la 
machine voie le jour. ; On notera la taille plus 
importante de la touche "space" et la présence de 
six touches de fonction programmables, Plus étonnant 
est l'affichage, formé d'une matrice continue de 
156x7 points, chaque point étant adressable ! Sur le 
côté gauche, un connecteur 60 broches relie le po- 
quette à ses périphériques (imprimante, tablette gra- 
phique, etc...). 


Le BASIC est évolué" : les entrées-sorties sur l'é- 
cran sont gérées par les ordres PAUSE, PRINT, INPUT; 
Pausse affichant les données pendant environ 2 secon- 
des WAIT permet de paramètrer en durée l'ordre PRINT, 
de O à l'infini. 


Le traitement des chaînes de caractères est cette 
fois-ci (contrairement au PC-1211) bien présent. Une 
variable contient seize caractères mais les tableaux 
jusqu'à deux dimensions, peuvent contenir 80 carac- 
tères par chaîne : DIM A8 (1,1) X80 créera un tableau 
à 2 dimensions de 4 chaînes de 80 octets chacune. 
Tous les opérateurs sur ces chaînes sont aussi pré- 
sents dans le BASIC : LEFTS, RIGHTS, MIDS, ASC, CHR3, 
VAL, STRS, concaténation de chaînes, LEN. 


Les variables numériques sont obligatoirement réelles 
et ne peuvent être entières : un inconvénient car 
avec 16 octets par variables, 1,8k de mémoire se 
consomme vite... Elles sont définies, comme les va- 
riables alphanumériques, par les deux premiers carac- 
tères de leur nom : ABC est donc égal à ABD. 


Utile aux amateurs de jeux en temps réel, la fonc- 
tion TIME indique le mois, le jour, l'heure, minutes 
et secondes ! Il est donc facile de transformer son 





poquette en réveille-matin dont l'efficacité sera 
assurée par un BEEP paramètrable en nombre, hauteur 
de la note (230 Hz à 7 KHz), et en durée. Avis aux 
mélomanes informaticiens. 


Parmi les instructions que tout BASIC doit posséder 
GOTO, GOSUB, IF... THEN (pas de ELSE sur le PC-1500), 
etc, on notera l'existence de branchements condition- 
nels : ON X GOTO, ON ERROR GOSUB, GOTO X (variable), 
d'opérateurs booléens AND, OR, NOT, le mode "trace" 
TRON, TROFF, les nombres aléatoires RND, RANDOM, etc. 


Une limitation cependant sur les boucles dont l'ori- 
gine, la fin, et l'incrément doivent être des entiers 
compris entre -32768 et 32767. 


On dispose de 6 touches de fonctions (mode RESERVE) 
qui ont trois significations chacune et peuvent stoc- 
ker un retour-chariot (CHRS(13)). 


Toutes les fonctions scientifiques sont présentes 
SIN, COS, TAN, ACS, ATN, LOG, LN, INT, SOR, éléva- 
tion à la puissance, etc... Trois modes de calcul 
trignométrique possibles : DEGREE, RADIAN, GRAD. 
Les caractères comprennent l' L'alpnabet majuscule et 
minuscule, numérique, etc. 


Mais le plus bel atout de ce "super-poquette" est 
sans aucun doute l'interface cassette-imprimante 
télécommande logicielle ou manuelle de 2 magnéto- 
phones, fichiers de données, concaténation de pro- 
grammes, tracé sur imprimante de caractères en 9 
tailles possibles et dans les quatre directions 
(haut, bas, gauche, droite), tracé de courbes en 
quatre couleurs et graphiques ; en bref, c'est une 
véritable petite table traçante que SHARP a conçu 
da 


Le tout est accompagné d'un manuel d'emploi très 
bien écrit, avec humour mais où, par mesure de pré- 
caution de la part de SHARP, certaines fonctions 
telles PEEK, POKE, CALL, ne sont pas mentionnées 
(suite de ceci dans un prochain articie avec 4 au- 
tres fonctions "inconnues" ...) et d'un manuel d'ap- 
plication contenant une mine de programmes de toutes 
sortes. 


Daniel GLAZMAN 
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Convertissez vos 
rogrammes du PC1 au PC2 





Le TRS80 PC2 (ou SHARP PC-1500), malgré un BASIC 
étendu", nécessite parfois l'adaptation et la trans- 
formation de programmes écrits pour le PC1 (PC-1211) 
pour que ceux-ci "tournent". Voici donc les princi- 
paux problèmes de compatibilité 


1) Les tableaux de variables 


Sur le PC1 les variables A(1) à A(26) (ou AS(1) à 
A#(26)) SONT LES MEMES que les variables A à Z (ou 
A8 à Z8), ce qui n'est pas le cas sur le PC2 ; ceci 
engendrant une ERROR 6 ou tout simplement le "plan- 
tage" du programme. Solution du problème 


a) si les variables sont numériques, dimensionner 
en début de programme un tableau A(100) et rem- 
placer les variables A...Z par AG AC? 


b) si les variables sont alphanumériques, dimen- 
sionner en début de programme un tableau Aÿ 
(100)*7 et remplacer les variables AS...28 
par AS(1)...AS8(26) ; 


c) si les variables sont numériques OÙ alphanu- 
mériques, la solution est moins évidente, re- 
portez-vous à la note 3). 


Parfois sur le PCI, le programme simule un tableau 


technique 





à deux dimensions, leur utilisation est possible sur 
le PC2, pourquoi s'en priver ? 


2) Les fichiers de données 


Après avoir satisfait au 1), remplacer les instruc- 
tions PRINT { A(X) par PRINT 4 A(*) [X étant un en- 
tier 1£x< 204]. 

Remplacer les instruction INPUT # A(X) par IMPUT # 

A(*) [1< x< 204]. 


3) La meilleure méthode d'adaptation restera, pour 
les bons programmeurs, de décortiquer le programme, 
d'un faire un organigramme (facultatif), et de re- 
taper le programme sur PC2 en tenant compte de ses 
capacités. 


4) Evaluation d'expression 


Transformer toutes les expressions du type 5AB+ X 
en (5*A*B)+X. 


Et voilà ! Après ces conseils, vous devez être capa- 
ble faire "tourner" sur PC2 tout programme du PCI, 
MAIS ATTENTION A VOTRE CAPACITE MEV car sur PCI, À 
prend 1 octet et sur PC2, A(1) prend À octets... 


Daniel Glazman 








Dans les entrailles 


logicielles du PC 1500 


Dans le manuel d'instruction du PC-1500, ne sont pas 
mentionnées 7 fonctions qui sont pourtant bien pré- 
sentes dans le BASIC ainsi que dans le manuel du PC2. 


PEEK, POKE, PEEK x, POKE 4, CALL, OPN et une mysté- 
rieuse fonction P ; PEEK, POKE, CALL sont bien con- 
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nues des programmeurs en langage machine ou des "bi- 
douilleurs" susbstantiels (sic !) : POKE écriture 
d'octet ; PEEK lecture d'octet ; CALL appel d'une 
sous-routine en assembleur à partir de BASIC (avec 
transmission d'un paramètre (variable numérique ou 
alphanumérique). 


Plus étonnantes sont PEEK x et POKE z qui adressent 
64K de mémoire qui ne sont pas des mémoires "de lo- 
giciel" mais de données (d'après manuel PC2) ; de 
plus, elles concernent les entrées-sorties : lors 
d'une lecture d'octet (avec le programme qui suit) 
entre 61410 et 65535, le haut-parleur émet des cli- 
quetis... 


10 : FORI-Q@ TO 4995 
29 : A=PEEKY (I+6144@) 
39 :: NEXT 1 : END 


OPN sert à la connexion entre le PC-1500 et 1 péri- 
phérique et déroute les ordres écran vers ce péri- 
phérique (équivalent à la commande ROUTE des ordina- 
teurs de table) et s'utilise avec 1 paramètre alpha- 
numérique de 3 caractères ; exemple 


OPN "LCD" rétablit l'écran intégré comme étant le 
périphérique de sortie. 


La fonction P est la plus belle de toutes : elle 
n'est pas accessible au clavier, ne sert à rien 
(pour l'instant ?) et déclenche une ERROR 1... 


La fonction STATUS, d'après le manuel, a 2 utilisa- 
Lions 


STATUS @ : mémoire libre 

STATUS 1 : mémoire utilisée par le programme 

STATUS 2 : adresse de fin de programme + 1 

STATUS 3 : adresse de début des variables 

STATUS 4...STATUS 255 : n° de la ligne exécu- 
tée lors d'un BREAK. 


À l'aide de toutes ces instructions, de quelques 
appuis sur ALL RESET, je vous présente une CARTE 
MEMOIRE. 


& 0000 —- & 3FFF : vide 

&u000 - & HOCH : mémoire de réservation 

&UOC5S - & 57FF : programme + données (avec CE-151, 
module de Uk MEV) 

&5800 —- & 6FFF : vide 

&7T000 —- & 7FFF : MEV système (voir plus loin) 

&8000 - & BFFF : MEM additionnelle 

&CO00 —- & FFFF : MEM BASIC (voir plus loin) 


Elle s'étend de &7000 à &7FFF mais est en fait 
constituée de deux zones 


. de &7000 à &77FF, une zone de 512 octets 
répétée 4 fois identiquement ; 

. de &7800 à &7FFF, une zone de 1 Ko répétée 
2 fois. 


J'utiliserai ici les zones de &7600 à &77FF et 
&7800 à &7BFF car elles se succèdent. 

La zone &7600 à &77FF contient 2 types d'informa- 
tions: le contenu point par point de l'afficheur et 
les variables Eg à 25. 


Les octets &T6LE et &76U4F indiquent par l'état de 
leurs bits le positionnement des indications de mode 
du PC-1500 : 





- de &7650 à &76FF : 11 blocs de 16 octets pour 
ES à 08 


- de &7600 à &764D et de &7700 à &774D : contenu 


point par point de l'afficheur 


- de &7TLUE à &7TUF : inutilisée 


- de &7750 à &77FF : 11 blocs de 16 octets pour 
PS à Z$ 


La zone &7800 à &7FFF contient des informations 
très diverses : . 
& 7875 : colonne pointée par GCURSOR (0 x 155) 
& 7883, 7884 : adresse de la dernière variable 
utilisée (=VARPTR) 
& 7898 : ERN (n° de la dernière erreur commise) 
de &78C0 à &78FF : 26 blocs de 8 octets pour va- 
riable 4 à Z 
de &7900 à &79CF : 26 blocs de 16 octets pour 
variables AS à DS 
de &7B10 à &7B5F : 80 octets pour le travail sur 
sur les chaînes alpha 
de &7B60 à &7B9F : 80 octets pour la sortie de 
caractères avec PRINT 
de &7BAO à &7BFF : 80 octets pour le buffer d'en- 
trée BASIC 
&78B4, &78B6 : ERL (n° de ligne où s'est pro- 
duit l'erreur) 
MEM MACHINE BASIC : &CD71 : éteint la machine 
&-E000 : RESET 
& FCOO- &:FE7F : table des carac- 
tères ASCII 
: & FE80-&FEFF : table d'assi- 
gnation du clavier 
& FFOO- & FFFF : table des adres- 
ses des routines principales du 
BASIC. 
Dans la face cachée du PC-1500 partie n° 2, nous 
vous présenterons une première mondiale (sic !}) : 
la réassignation clavier et caractères du PC-1500. 
Dans la partie n° 3, la structure du BASIC et des 
données... Affaire à suivre si vous le désirez ! 
Cependant ‘nobody's perfect" alors si vous avez fait 


une trouvaille digne de ce nom sur le PC-1500, PC2, 
écrivez-moi vite. 


= ———————————— Daniel Glazman 
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Er) 
En 
En 
= 
© 
© 
Ê 


programme 


Gérez vos fichiers 


sur PC 1211 





On peut, si l'on est collectionneur, stocker le fi- 
chier de sa collection : moi, je collectionne les 
disques de rock, et voici un exemple d'un ensemble 
de programmes pour collectionneurs : DISC, LIRDISC 
et SELDISC. 


On charge le fichier sur K7 à l'aide de DISC (1.70- 
180) 


- 3 variables, L#$, M$, N$, contiennent le nom du 
groupe : le if... goto de 1.70 est à utiliser en fin 
de K7. La relecture d'un fichier sur K7 est longue, 
et il vaut mieux ne pas s'obliger à être présent à 
l'arrêt de la machine. Inconvénient, la K7 n'arrive 
pas en fin de bande à la relecture, pas d'Auto-Stop, 
et les piles du magnéto se vident ; avantage : le 
PC-1211, lui, s'arrête ! 


- en ligne 80, rentrer la nationalité du groupe - 
en 90, le titre du disque. 


- 1.100 : variable S : nombre de tours 33, 45,... 
ou 0 (code pour la 1.610 de LIRDISC). 
Variable T : diamètre du disque. Les collectionneurs, 
ou simples amateurs savent que l'on utilise les me- 
sures CB et F. Pour utiliser la suite à bon escient, 
s'en tenir à cette règle : 

30 cm = plus de 6 titres, ou plus de 25 mn. 

12 in.= moins... 


Petits formats : cela est indifférent. 


Se souvenir que toute collection digne de ce nom 
comportera des albums A5t, ils ne devront pas être 
confondus avec des maxi ASt ! 
Les lignes 110/120 définissent l'unité de mesure. 


- 1.150 : comparer X8 et 08 se révèlera utile. Toute- 
fois, attention ! Des groupes français ont enregis- 
tré à Londres, le pressage original de certains grou- 
pes allemands est sur un label anglais et des anglais 
ont sorti des versions spéciales de certains titres 
pour le Canada. Il faut d'ores et déjà songer que 

ces pressages sont corrects ! 
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=, 


\es 
FE = \s 
= Eee RE 


1:GOT0 30 
10: PRINT L$i5M$, 
N$:PRINT "<" 
30$5")": 
PRINT P$50$5 
R$: PRINT 
USING "#44": 
3" TOURS"35T 
; LL ; US$: 
PRINT V5" TI 
TRES" 
15:PRINT "“EDITE 
UR: "5 W$: 
PRINT "PRESS 
AGE: "5X$: 
PRINT Y$52$: 
PRIMES 
RETURN 
20: INPUT #"DISC 
“SACI2):IF L 
$="X"END 
25:RETURN 
30:INPUT “IN/OU 
T?"5A4$ 
40:1F A$="IN" 
BEEP 2:PAUSE 
"K? REC !": 
GOT 70 
SO:IF A$="OUT" 
GOT 200 
60: GÜTO 30 
T0: INPUT "GROUP 
E CX=FIND:"3 
L$tIF L$="Xx" 
GÜTG 170 
T5: INPUT M$: N$ 
80: INPUT "NATIO 
NALITE: "5 0$ 
90: INPUT "TITRE 
IPS GS RE 
190:PAUSE "FORMA 
T':INPUT "NB 
TOURS: "35: 
INPUT "CM/IN 


110:IF CT=7)+CT= 
123LET U$="I 
H. “ 
1202IF CT=172+CT 
=25)+(T=30) 
LET U$="CM." 
130: INPUT "NB TI 
TRES: "54 
140: INPUT "EDITE 
UR: "5 d$ 
150: INPUT "PRESS 
AGE: "5 X$ 
160: INPUT “REMAR 
QUES: "5 v$2$ 





170: PRINT #"DISC 
"sACI2DSIF L 
$="X"END 

180: G0T0 70 

ZQO0: PAUSE "CRITE 
RE DE LECTUR 
E":INPUT "PA 
R GROUPE ? “ 
SAS:IF A$="0 
"GOTG 300 

210:INPUT "PAR T 
ITRE DE DISQ 
UE ? "5AS$:IF 
Â$="O"GOTO 4 
üo 

220: INPUT "PAR X 

DISQUES ? " 
SA$S:IF A$="O 
"GÜTO 500 

230: INPUT "PAR N 

ATIGMALITE ? 
“SAS$:IF A$= 
"CO"GOTO 600 

240: INPUT "PAR P 
RESSAGE ? "3; 
A$:IF A$="0" 
GÜTG r00 

250: INPUT "PAR E 
DITEUR ? "5A 
$:IF A$="0" 
GÜTO 500 

260: INPUT "PAR F 
DRMAT ? "354$ 
s1F A$="0" 
GOTO S30Û 

270: INPUT "LES € 
OMPTER 7? “SA 
$:D=0:E=0:1F 
A$="O"GOTG 9 
sû 

280: G0T0 200 

ZOO: INPUT "GROUP 
E RECHERCHE: 
“355$ 

305:GO5SUB 20 

3i0:IF B$=L$ 
GÜSUB 10 

320: G0T0 30S 

400: INPUT "NOM D 
U DISQUE:"35B 
$ 


405:GOÜSUB 20 
410:1F B$=P$ 
GSSUB 10:END 
420: G0T0 405 
500: INPUT "NB SÛ 
UHAITE: "58: 
FÜR C=1TO B: 











GOSUB 20 
510:G5SUB 10 
S20:NEXT C 
530:6070 30 
800: INPUT _"NATIO 
HALITE RECHE 
RCHEE: "355$ 
605: GOSUB 20 
610:1F B$=0$ 
GOÜSUB 10 
620:G0T0 605 
700: INPUT "PRESS 
AGE RECHERCH 
E:":;B$ 
705:GÜSUB 20 
T10:IF E$=X$ 
GÜSUB 10 
720:G0T0 705 
800: INPUT “NOM D 
E L EDITEUR: 
“354 
805: GÜSUB 20 
S10:IF ES=W$ 
GÜSUB 10 
820:G0T0 805 
900: PAUSE "LEQUE 
! “y INPUT “ 
HE TOURS: "3B 
: INPUT "CW/I 
N:"5C 
305: GÜSUB 20 
G1O:IF C(B=SDK(C= 
T>GÜSUB 10 
320:G0T0 305 
950: INPUT #"DISC 
"3ACI2)2IF L 
£="X"GOTO 98 


(s] 

955: D=D+i 

GEO: IF (S=33)%CT 
=30)LET E=E+ 


1 

96L:IF Y$="2LP" 
LET D=D+i:E= 
EF 

362:IF Y$="3LP" 
LET D=D+2:E= 
E+2 

3T0:GÜTG 350 

330: PRINT USING 
“HHNHA"S Ds" 
DISQUES": 
PRINT “DONT, 
.. "PRINT E;3 
" ALBUMS": 
FRINTAETS-- 
..":PRINT D- 
Es" DIVERS" 

390: END 





- 1.160 : on rentrera donc en Y3 le sigle "PS", pour 
pressage spécial. C'est là aussi qu'il faudra mettre 
le cas échéant "2LP" ou "3LP", utile pour compter 
ses galettes. A défaut, ou en Z3, on notera le nom 
du producteur si cet homme a quelque mérite, ouquel- 
que autre succincte remarque justifiant l'inclusion 
de la rondelle dans une collection, ou encore rien ! 


- Puis, dès le programme DISC, commence 1a galère 
des critères de lectures : il y en a 8, le comptage 


- mode 8 - étant rudimentaire. L'impression des ré- 
sultats se fait par fiche complète. 

Pour le type de lecture effectué en 1.900sq., il 
importe d'avoir été précis en 1.100 ! 


— LIRDISC : 


en 45 tours sur une face et en 33 sur l'autre, ni de 
ces anciens de Bauhaus, qui indiquent que l'on peut 
faire tourner leur disque à la vitesse de son choix! 
Imaginons la lourdeur du programme, s'il avait fallu 
à chaque fois rentrer la vitesse de la face À, puis 
B, identique sur 1000 disques, pour le plaisir, au 
1001°, que l'on n'écoute jamais, de rentrer 2 chif- 
fres differents ! 


Je n'ai donc retenu pour la 1.210 sq. que les caté- 
gories principales de disques que je possède. 


— 11.300 sq. : la petite précaution prise en Y$ 
trouve ici sa justification. Dieu soit loué, je ne 
connais pas de double aibum n'existant qu'en pres- 
sage étranger à la nationalité du groupe, d'où éco- 
nomie de variables ! 


- 11.400 sq. et 500 sq. : la différence est claire 
pour tout amateur. On affiche pour la partie débu- 


10:CLEAR : PAUSE 
"LECTURE DU 
FICHIER DISC 

20: PAUSE "CRITE 
RE DE LECTUR 
E :": INPUT ‘ 
FRECISION-FO 
RHATS 7 "544$ 
11F A$="0" 
GÜTO 100 

Z0: INPUT "NB PR 
ESSAGES CORRE 
ECTS?" AS: IF 
A$="C"GOTS 3 
O0 

40: INPUT "NB D* 
IMPORTS ? "5 
A$:IF A$="0" 
GOTO 406 

90: INPUT "LISTE 
PRESSAGE QU 
ALITE?"S AS: 
IF A$="0" 
GOTCO 500 

0: PAUSE “GROUP 
ES FIGURANT 
SUR": INPUT " 
COMPILATIGONS 
7 "SAS:IF À 
$="0"GOTO 60 
Le) 

TO: G0GT0 20 

100: INPUT #"DISC 
"3ACI2):IF L 
$="X"GOTO 21 


0 
110:IF CS=332KCT 
=ZO)LET B=E+ 


1 
120:1IF CS=33)#CT 
=2S3LET C=C+ 


1! 
130:IF (S=323)xC4{ 
T=17)+(T=7)) 
LET D=D+1 
140: IF CS=33)# CT 
=12)LET E=E+ 


1 
ISO: IF CS=45)4CT 
=3O0)LET F=F+ 


1 
160:1F CS=452#(T 


=12)LET G=6+ 
1 


1TO:IF (S=45)x<« 
T=173+(T=7)) 
LET H=H+i 
180:1F Y$="2LP" 
LET I=]+1 
190:1F Y#$="3LP" 
LET J=J+1 
200: GGTG 100 
210:PRIHT USING 
"tant" Bs" À 
LEUMS Z0CM": 
PRINT "DONT" 
els rar LP 
ERINTMES ET: 
DRE] E 
220:PRIHT Fs" AL 
ELHS 45 T" 
2I0:PRINT C5" AL 
EUMS 25CH": 
PRINT Es" MA 
MIS ST 
PRINT Gi" MA 
KIS 45 T's: 
PRINT I5" 33 
T-17 CM" 
2402:PRINT H5" SI 
NGLES": PRINT 


250: A=B+C+D+E+F+ 
G+H+1+2J 
260: PRINT "SOIT 
AU TOTAL..." 
: PRINT USING 
“HAUTS AS" 
DISQUES +": 


SPRINT “ « 
270: END 
300: INPUT "DISC 
"iACi23:IF L 
#="X"GOTO 35 
ù 


310:K=K+1 

320: 1F O$=X$LET 
J=J+1 

320: IF Y$="ps" 
LET J=J+1 

340: GOTG 300 

ZSO: PRINT "SUR"; 
USING "HHTAN 


"sKI" DISQUE 


S'sPRINT Ji 


PRESSAGES C 
ORRECTS": I=J 
K*E2 

ZÉO: PRINT "SGIT" 
sLSING “ht. 
HAS IS Ur 
PRIN [EE 1 ! 
END 

400: INFUT #"DISC 
"SACI2D5IF L 

="X"GOTO 45 


Le) 

410: J=J+1 

4ZO: IF #$="F"LET 
K=K+1 

430: GOÔTG 400 

4S0: PRINT USING 
MAUR" S J-K3 
" IMPORTS": 
ERINESSES 
END 

SOÛ:PAUSE "PRESS 
ÂGES CORRECT 
S = C':PAUSE 
"IHCORRECTS 
de INPUrES 
CHOIX (C1) 
? "AS 

510: INPUT #"DISC 
"HACIZDSIF L 
$= nicu END 

C$=X$GOTO 


SIC: IF Y$="PS" 
GOTG 560 
SO: IF A$="]" 
GOÜSUE 900 
330: GÜTG 510 
SÉO: IF A$="C" 
GOSUER S00 
STO0:GOÜTG 510 
S00: INPUT #"DISC 
"SACI2DSIF L 
$="X"END 
610:IF S=0GOSUB 
30û 
620: GÜT0 600 
800: END 
SOC: PRINT L$5M$#s 
H$:PRINT P$: 
#5 RS: PRINT 
" "#RETURN 





tant en ligne 500, en ligne 600, des extraits de 


fiches. 


NOTA : 


il aura donc fallu rentrer L=" ", 
titre de la compilation en P$ et S-33 ou 45, et en- 


puis le 


suite, groupe par groupe, L3="groupe", P#="compi", 
S=0, pour lire correctement le fichiér. 


- SELDISC : 


On n'aura jamais, par cette lecture sélective, que 
nom_de groupe, de disque et label. Il s'agit de fai- 
re une lecture exhaustive des disques par format,et 


non plus de les compter. 


10: PAUSE "LECTU 
RE SELECTIVE 
+DISCx": 
FAUSE "CRITE 
RE DE LECTUR 
Essence 
20: INPUT "LISTE 
DES 337/30C 
M 7? "5A$:IF 
A$="O"GOTG 1 
00 


30: INPUT "LISTE 
DES LP 45T 
7? “IASIIF À$ 
="O"GÔTG 200 
40: INPUT "LISTE 
DES MAXIS 3 
ST 7 "SAS:IIF 
A$="G"GOTO 3 

üû 
S0: INPUT "LISTE 
DES MAXIS 4 
OT 7 "sAS:IF 
A$="G"GOTO 4 

(nl 


O0 

60: INPUT "LISTE 
DES 45T/17C 
M 7 "SASSIF 
A$="É"GOTO 5 


Lu) 
FO: IHPUT "LISTE 
DES 33T“17C 
M 7 "SA$S:IF 
A$="O"GOTO 6 


oû 

80: INPUT "LISTE 
ALBUMS 25 C 
1H ? "5AS:IF 
A$="G"GOTO F 
où 


30:G0OTG 20 

100: GOÜSUE 800 

1101IF (S=33)#CT 
=ZC)GÜSUE 30 


[nl] 
120:G0T0 100 
200:GOSUB 800 
Z210:IF (S=4S2#CT 
=30)GOSUB 90 
Ü 
Z220:G0T0 200 
Z00:GOSUB 800 
3S10:IF CS=33)#CT 
=12>COSUB 30 
a 
320:G0T5 300 
400: GOSUR 809 


AIO: IF CS=A4SIKCT 
=12>GOSUB 30 


ü 
420: G0TG 400 
S00:GÜSUB 800 
S10:IF CS=4S)#Cc 

T=17)+CT=7)} 

GOSUB 900 
S20:GÜTO 500 
SO0: GÜSUB 800 
SI: IF (S=33)xc< 


T=17)+CT=7)) 
GOSUE 900 
620: G0T0 600 
700: GÜSUB 200 
710:IF T=25608UB 
300 
720: GÜTD 700 
800: INPUT "DISC 
#34€123:IF L 
$="X"END 
810:RETURN 
300: PRINT L$3M$3 
HE: PRINT P#3 
GEIR$: PRINT 
BON UISs OX 
PRINT " ": 
RETURN 





Ceci est encore plus vrai quand on attaque le second 
programme. Mais quel collectionneur n'est pas précis. 
Rappelons à ce propos que David Thomas, entre autres, 
a sorti un album 45 tours, et que Je n'ai pas prévu 
le cas du 17cm "Extraits 1-1" de Faust, qui tourne 


RENOTA : p=rsonnellement, je rentre "Pirate" en Z8, 
mais je ne le dis pas. Enfin, le programme fait, au 
lieu de créer mon fichier, j'ai mis un disque ! 


= Jean-François Chapin 
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technique 


= Modifiez le clavier 


de votre 
PC 1500 


Si vous préférez travailler avec un clavier AZERTY 
accentué ou que vous avez besoin de caractères grecs, 
arabes, cyriliques, japonais ou spéciaux et que vous 
voulez qu'ils soient directement accessibles au cla- 
vier, cet article vous concerne... 


Il est en effet possible, pour l'utilisateur, de re- 
définir jusqu'à 128 nouveaux caractères de code ASCII 
&89 à &FF, laissant donc les 96 caractères standards 
disponibles (codes &29 à &7F) simultanément. On peut 


aussi changer les codes ASCII envoyés lors de la pres- - 


al 
En 
2 
© 
© 
Êl 


sion sur les touches du clavier : ainsi, on peut ob- 
tenir un A à la place du Q lorsque l'on appuie sur 

la touche correspondante. Les codes des touches SHIF- 
TEES peuvent être changés indépendamment. Seules trois 
touches ne peuvent émettre que leur code normal : DEF 
code &1B, SHIFT—code &01, SMALL—code &ÿ2. La tou- 
che ON/BREAK n'étant pas scrutée avec le reste du 
clavier, elle n'est pas réassignable. Il est donc 
possible d'obtenir un clavier avec caractères accen- 
tués français réassignés à SHIFT @, SHIFT 9, SHIFT 
OFF, SHIFT#, SHIFT RCL, SHIFT ENTER. Il suffit alors 
de mettre des grilles d'assignation pour se souvenir 
de l'emplacement des nouveaux caractères (en papier 
pour le pavé numérique). 

Pour pouvoir obtenir tout ceci, vous n'avez qu'à li- 
re cet article ! 


A/ Réassignation du clavier 


Chaque touche correspond pour la machine à 2 octets. 
dans une table qui normalement se situe dans la ROM 
de &FE80 à &FEFF. Le premier octet est le code ASCII 
de la touche seule, le deuxième étant le code ASCII 
de la touche SHIFTEE. Ceci est vrai pour toutes les 
touches sauf, bien sûr, ON/BREAK. Le clavier a 64 
touches (+ON/BREAK), la table fait donc 128 octets : 
64 octets pour les touches seules, puis 64 octets 
pour les touches SHIFTEES. La table est reproduite 
ci-dessous car elle est nécessaire pour situer les 
2 octets réservés à chaque touche. 





















































code ASCII& touche 
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» 2 
ve je 
es, à 


Le 
2 Se 
œ 


PW Case dont le contenu n'est pas pris en compte par 
la machine. 

Le ‘truc! pour réassigner le clavier consiste à fai- 
re chercher cette table par la machine non plus dans 
la ROM où elle ne peut être modifiée mais dans la RAM 
où l'utilisateur pourra la modifier à volonté pardes 
POKE, voir l'article sur la structure de la mémoire 
de la PC-1509 POKE A,B,C,D...met les valeurs B,C,D... 
aux adresses A,A+1,A+2... avec Q B,C,D... 255. 
Pour que la PC-1599 sache où est 1a nouvelle table, 
on fait POKE&T8SE, &NN sachant que l'adresse mémoire 
qui suit. la 128ème adresse occupée par la table est 
&NN9Q (la table va donc de &NNOD-8&80 à &NN2G-8&@1). 
Ceci montre que la table ne peut pas être n'importe 
où en TAM : il faut que la 1ère adresse qu'elle occu- 
pe soit telle que INT((Ad-&8@)/&199)=0. Pour une ma- 
chine avec le CE-155, on pourra faire NEW&34G0, ce 
qui protège de la RAM contre les NEW normaux (pour 
que la table ne soit pas mélangée au programme). Les 
128 octets iront donc de &398G à &39FF. On fera donc 
POKE &785E,&3A. Mais cela ne suffit pas. 


Pour activer la réassignation du clavier, il faut 
faire POKE &T76UE,PEEK &T6OUE.OR&C. Ceci allume le sym- 
bole en haut de l'afficheur. À ce moment le clavier 
a les nouvelles assignations que vous lui avez don- 
nées en changeant les valeurs des codes ASCII à vo- 
lonté dans la table de 128 octets. 


Voici un petit programme BASIC pour rentrer les va- 
leurs dans le tableau 


1 : WAIT G:FOR A=&3989 TO &39FF : 
: INPUT "=" ; B:POKE A,B:NEXT A:END 


PRINT (A-&397F) ; 


Sans le CE-155, changer tous les &3A... par des &A2 
106392 -par el. 

Résumé de la manipulation avec/sans CE-155 : 

a) NEW & 3490 / NEW &4209 


b) rentrer le PRGM ci-dessus, RUN, rentrer les 128 


codes selon votre choix. 


c) POKE &785E,&3A / POKE &785E,&42. 


d) pour activer le nouveau clavier POKE &76UHE, PEEK 
&76UE OR&C. 


e) revenir au clavier normal : SMALL. 


L'opération d) peut être assignée à F1,F2,...ou F6 


Attention : quelles. que soient les valeurs des octets 
définissants SHIFT, DEF, SMALL, SHIFT SHIFT, SHIFTDEF, 
SHIFT SMALL, la fonction de la touche concernée n'est 
pas modifiée. 


Pour pouvoir assigner n'importe quoi à une touche, 
voilà la table des 256 codes ASCII : 


F 




















Note : touche SP : touche SPACE 


L 4 non réassignable ni réimplantable (à une autre 
touche) 


C.U : caractère défini par l'utilisateur. 





Comme on le constate en observant ce tableau, seuls 
les caractères de codes &29 à &7F et &AQ à &DF sont 
réassignables en tant que caractères. Les codes &09 
à &1F sont compris comme des fonctions par la machi- 
ne et les codes &8G à &9F sont compris comme la pres- 
sion succéssive sur la touche DEF et un caractère de 
A à Z ou = ou SPACE sur le clavier. Enfin, la réas- 
signation des codes E@ à &FF n'est d'aucune utilité : 
elle génère le ler octet d'un des mots clé du BASIC 
(puisque ceux-ci sont codés sur 2 octets). Les carac- 
tères utilisateurs seront expliqués dans la suite de 
cet article. 


Pour mieux comprendre le rôle des codes spéciaux, 
faites quelques essais. Vous pouvez copier sur cas- 
sette le tableau de 128 octets de votre clavier per- 
sonnalisé par l'ordre : 


- avec CE-155 : CSAVE M "CLAVIER"; &3980,&39FF 
- sans CE-155 : CSAVE M "CLAVIER"; &4180,&41FF 


pour relire la cassette : CLOADM "CLAVIER" [;Ad de 
début] la partie entre crochet n'est nécéssaire que 
si l'on veut réimplanter la table à une adresse dif- 
férente (recalculer NN pour le POKE&785E, &NN). 
L'utilisateur peut ainsi mettre sur la cassette les 
différentes assignations qui lui conviennent pour les 
utiliser alternativement. 


B/ Réassignation des caractères ASCII de codes &8ÿ 
a &FF 


Là encore, il va s'agir de créer une table dans la 
mémoire RAM de la PC-1500. Les caractères normale- 


ment accessibles à l'utilisateur, de codes &29 à &7F 
sont définis dans une table en ROM qui va de &FCOO 

à &FE7F. Normalement, les caractères de codes &AQ à 
&FF sont des copies de caractères &29 à &7F, les co- 
des &00 à &1F et &8Q à &9F étant considérés comme un 
espace. Il suffit de faire chercher les dessins des 
caractères &8Q à &FF dans une table en RAM pour que 
l'utilisateur puisse définir ses propres caractères. 


Chaque caractère sera défini par 5 octets, chaque 
octet décrivant une colonne d'un caractère par une 
valeur de &G9 à &7F comme pour un GPRINT, la 6ème 
colonne du caractère étant toujours vide. Le 1er ca- 
ractère (code &8@) sera décrit par les octets &99 à 
&ÿh de 1a table, le 2ème (code &81) par les octets 
&05 à &09 etc... 


Cette table si elle doit être définie avec celle de 
réassignation du clavier doit obligatoirement com- 


(G...4) de chaque caractère (@...N-1). 

Faire CHR$128 : vous devez obtenir votre premier ca- 
ractère. 

Avec le CE-155 et la réassignation du clavier : 

NEW &3A99-(nx5) ; le POKE est déjà fait lors de la 
réassignation du clavier ; exécuter le même PRGM en 
changeant les &39... par des &3A... 


Sans le CE-155, sans réassignation du clavier : 

NEW &4199+(nx5). 

Comme avec le CE-155 mais le &39... deviennent &l1... 
Sans le CE-155, avec la réassignation du clavier : 
NEW &4290+(nx5). 

Comme avec le CE-155 mais les &3A ... deviennent 

(A ES 


Pour terminer, voici quelques exemples de caractères 
spéciaux (accentués français). A vous de continuer 
maintenant ! 


x:56,68,60,84,88 1:9,1,124,1,G 6:56,69,68,69,56 à:56,69,70,60,64 


ç:64,56,68,68,49 6:56,84,86,85, 24 è:56,85,86,84, 21 è:56,85,86,85, 24 





RE TT Ce a (SL ODIIe  DOUCHOÔN 


% 
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mencer par l'octet qui suit immédiatement le dernier 
octet de la table du ciavier, car c'est le même POKE 
&785E,&NN qui donne la position des 2 tables à l'or- 
dinateur. La table de redéfinition des caractères 
commence donc en &NN99 et se finit en &NNGG+nx5-1, 
n étant le nombre de nouveaux caractères désirés par 
l'utilisateur, de 1 à 128. Attention, seuls les ca- 
ractères de codes compris entre &AQ et &DF parmi ceux 
crées sont assignables au clavier (voir table ci-des- 
sus) donc si l'on veut assigner m nouveaux caractè- 
res au clavier, il faut créer m+32 caractères de ta- 
ble commençant toujours par le caractère de code &89. 
Voici les opérations à exécuter si vous souhaitez n 
nouveaux caractères : 
AVEC CE-155, sans réassigner le clavier : 
NEW &3990+(nx5);POKE &785D,&8G,&39 
exécuter le PRGM : 
1 : WAIT @ : FOR I=&3900T0 &39 

00+5 * N = 1 : A = (I-&3940)/5 : P 

RINT INT 4 ; 5 * (A-INT A) ; 
2 : INPUT "=" ; B : POKE I, B : NEXT I : END 
en fournissant successivement le code des 5 colonnes 


programme 





Visualisez 
avec un histogramme 


Le programme "HISTO" me permet de faire l'histogram- 
me des 12 dernières notes obtenues (ou moins) par un 
élève, en tenant compte des absences éventuelles, et 
affiche également la moyenne sur ces 12 devoirs ou 
interrogations. 

Le sous programme assurant l'impression du résultat 
figure en tête, des lignes 2 à 85. Les variables 0 et 
P, rencontrées en 1.140, puis 180/190, et 20, ser- 
vent à économiser le papier : inutile de faire une 
courbe de 0 à 20 si un élève a toujours obtenu entre 
8 et 11... Cela permet en outre (1.65) une lecture 
facile des notes extrêmes obtenues par l'élève. La 
largeur de la bande de papier limite le nombre de 
notes à 12 maximum : dans la plupart des cas, c'est 
suffisant - du moins en second cycle... 


- Exécution : 1.100 on est invité à compléter les 
noms courts par des espaces, à concurrence de 7, 
pour avoir un bel affichage en lignes 2-3. 


- 110 : la variable A(37), initialement identique 
au nombre de notes, s'en différenciera (1.200) si 
l'élève a été absent à certains devoirs. Elle sert 


1:GOTO E2 152 PRINT * 1 


au calcul de la moyenne. 


- 130 : impossible de rentrer un sigle du genre 
“"Abs", aussi ce code permettra d'identifier les ab- 
sences. Quelques précautions s'imposent alors pour 
déterminer la note maxi (1.190) et la moyenne ( 1.200) 


- 170 : précaution peut-être inutile, mais ii y a 
toujours le risque de tenter d'entrer 125 pour 12.5. 


- N - 14 : 11 y a peut-être plus élégant pour réali- 
ser l'en-tête. 

Dans une version antérieure, j'avais écrit 
Y=1234567890 : T=-10-S:7= 10° T: Y=INT(Y/Z) 


Ce type de calcul limitait à 9 le nombre des notes, 
imposait un formatage aussi coûteux en place que les 
présentes (4H - 14), ainsi qu'une marge lors de l'af- 
fichage du résultat. 

L'histogramme lui-même (20-70), est proche dans sa 
conception des remarques de M. CLAVEAU (TRACE n° 2). 


Jean-François Chapin 


"HAN. RH" AC 


2: PRINT N$5*:" 


11234567 


10:1F S=8PRINT 
D 11234567 


g" 

1121F S=9PRINT 
+ 11234567 
LE] LU 

12:IF S=10PRINT 
+ 11234567 
290" 

13:IF S=11PRINT 
u 11234567 
8301" 

14:1F S=12PRINT 
G 11234567 
83012" 
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2Z0:FÜR R=PTO O0 
STEP —1 

25:FOÜR T=21T0 S 
+20 


30: A=T-19 
35:1F ACTI<RLET 
AFCAD=" 

40:IF ACT) >=R 
LET A$CAdD= "4 


45:1F R=10LET A 
FCAI="-" 

50: IF ACT)=21 
LET A$CA)="! 


55:IF CACT)>=10 
D#HCR= 10) CAC 
T)<>212LET À 
ÆCfo=t"xt 
GO:MEXT T 
ÉS:FRINT USING 
CHR RS "I" 
E$:5C$:D$5E$: 
F$:G$5H$351$; 
JHSKSSLSS MS 
TO:HEXT R 
FSSPRINT " --1- 
B0:FRINT "MOYEN 
NE : “ÿUSING 


GDS PRINT " " 
RETURN 
CLEAR :N$=" 


INPUT "NOM € 
FT CARACTERES 
3 5 "IN 
INFUT "NB NO 
TES =: "1S:4< 
37)=S:1F 521 
2BEEP 2: 
PAUSE "12 NÔ 
TES MAXIMUM" 
:GÜTG 110 

IF S<=1BEEP 
2:FÜR AC34)= 
iTÜ Z:PAUSE 
"RIDICULE ! 
AU SUIVANT ! 
MINEXT ÀCZ4) 
PRINT N$: 
PRINT “ “: 
GGTO 100 
BEEF 2:PAUSE 
“ABSENT = 21 


C=22:P=-1 
FÜR T=21T0 $ 
+20: 0=7-20 
PAUSE "NÔTE" 
USING "##f" 
5Q: INPUT ACT 


1T0:IF ACT)>21 
BEEP 1:PAUSE 
"ERREUR D IN 
TROGDUCT ION": 
GOÜTO 160 

180:1F ACTI<OLET 
CERCT) 

130:IF CACTI>PIX 
LACTI<221) 
LET PAT) 

200: A{35)=A(35)+ 
ACTI31IF ACT) 
=Z1LET A(35) 
=A(35)-21: AC 
31)=A(C37)-1 

SIOIHEXT T 

220: A636)=A(35)/ 
A£37) : GOSUR 
| 


230: INPUT "MEME 
HISTOGRAMME . 
7? "sA$C33): 
IF A$C332="0 
"GÔSUE 2:A#$< 
33)="":G0T0 
230 

240: INPUT "UN AU 
TRE ELEVE ? 
"sA$C32):IF 
A$C33="0" 
GOTÜ 100 

250:END 





Eu 
Es 
En 
= 
© 
© 
A 





jeu 
Boufman, un grand 
classique 


adapté au 


Matériel PC-1500 ou PC2. des touches Q et P ; 

Avis à la population : toute ressemblance concernant 2) tel un caméléon, vous le happez avec votre 

le nom du programme ou les graphiques utilisés avec langue en appuyant sur SPACE, nes VOUsACeNeZ 

le PACMAN (@ NAMCO LTD) est totalement fortuite et regarder le monstre pour lui tirer dessus. 

due au seul hasard ! MAIS le fantôme se méfie de vous et ne reste présent 
à l'affichage que durant un temps déterminé aléatoi- 

Vous qui possédez un PC-1500 ou un PC2, qui l'utili- rement. Ce temps est affiché en secondes sur la droi- 

sez principalement à des fins "sérieuses", vous qui te de l'affichage. C'est en fonction de cette durée 

avez si souvent rêvé d'un instant de détente infor- que vous devez choisir comment vous neutraliserez le 

matisé, votre souhait est exaucé : voici BOUFMAN... fantôme (voir ci-dessus). 

Il occupe 536 octets et nécessite l'aide d'une per- - un fantôme "mangé" vaut 1 point 

sonne de 7 à 77 ans (nous sommes très tolérant à - un fantôme "avalé" vaut } point 








TRACE) ... - un fantôme laissé libre vaut 0 point 


Mais l'esprit comique de l'article ne doit pas nous (normal, non ?) 

détourner du chemin de la programmation : le program- 3 re 

me utilise les capacités graphiques de l'écran ; vous A la fin de votre périple, le poquette vous donnera 
vous en rendrez compte en allumant votre poquette une note sur 20 pour votre performance. 
(instruction ARUN). 


È à g ‘ 
Vous êtes cette espèce de camembert entamé que l'on N.B.: La rapidité de déplacement du BOUFMAN est fonc- 
appelle communément le Boufman et votre mission est ë à è Ê : 114 
tion de l'état de vos piles : il est donc conseillé 

de dévorer gloutonnement tous les fantômes qui ap- E FE ï 
araîtront sur l'écran (en tout 23 fantômes) pour q'ayoirde pannes Des peur rare md Se 
Re faire deux DOMS1D11TSS ; Et voilà, j'espère que cet intermède ludique vous a 

: “é L permis de reprendre des forces, alors maintenant au 

1) vous vous déplacez pour les manger à l'aide travail ! 


THEN 28 
5: ARUN :CLERAR : 34:1F A$=" “THEN =R+]:GCURSOR X GPRINT 16;: 
BEEP ON 258 : GPRINT C$ NEXT I 
12:WAIT 9:RANDOM : IF A$="Q"LET X 119: Y=RND 129: 252: GOSUB 209:U=U- 
:C$="DD1C3E7F7 =X-1:GCURSOR *X GCURSOR Y: .5:GO0TO 29 
F772298" : GPRINT B$;.B= GPRINT "7E3F7B 300:BEEP 18:WAIT 
11:B$="0922272F2F JGCOTOL27 3F/B3F2E" ;: CLS :PRINT “no 
3E1C828".x=78 36: IF A$="P'LET X RETURN te= ";UX29/R;" 
28: GOSUB 188:TIME =X+1:GCURSOR X 208: U=U+1:BEEP 2: sur 28":GOTO 
=g:AQ=RND 19: : GPRINT C$;:B= RETURN 


5 
CURSOR 22: 1 250: S=SGN CY-X):1F 1289:"(C) Daniel 
PRINT A;:IF R= 37:1F X<DYTHEN 39 SCDBTHEN 39 GLAZMAN 
24THEN 320 40: GOSUB 298: GOTO 251:FOR I=X+3+5Sx4 1281:*(C) TRACE 
32: AS$=INKEYS : IF 20 TOBYSTEPRSE 1992: “Boufman.. 
TIME X1E42A 192:CLS : RANDOM :R GCURSOR I: . 1203: "PARIS 1982 





ET Ne  Glazman 
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Eu] 
Es 
En 
= 
© 
© 
x 


programme 





Tracez vos courbes 
sur PC 1500 


que le pas d'une boucle FOR-NEXT soit décimal. 
FOR I =1 TO2 STEP O,1-—3ERROR 19. 
Il faudra donc modifier les valeurs de l'intervalle 


L'atout principal du PC2 (PC-1500) est, pour l'ins- 
tant, son imprimante/table traçante. En effet, cha- 
que point, sur le papier, est adressable par des 
coordonnées cartésiennes (X,Y) ; ceci autorise quan- 
tité d'applications dont le tracé de courbes y=f(x). 


Certaines personnes pouvant être intéressés par une 

adaptation sur un TRS80 muni d'une carte haute réso- 

lution, je donne la signification des ordres graphi- 

ques du PC-1500 : 

LINE (X,Y)-(Z,T) : tracé de ligne entre (X,Y) et 
(Zn) 

: tracé de ligne entre le point 
courant et (X,Y) 

: positionne le point courant en 
CX,Y) 


LINE -(X, Y) 


GLCURSOR (X, Y) 


GRAPH : passage au mode graphique 

TEXT : passage au mode texte 

SORGN : positionne l'origine (0,0) au 
point courant 

LF : Line Feed 


Ce programme permet de tracer les fonctions du type 
Y=f(X), et signale les valeurs d'asymptote verticale 
ou de non-définition de la fonction. 

Seule ombre au tableau : le PC-1500 n'accepte pas 


IREM copyright 
Daniel 


F(x22E(x).SIN(HXx 
Fros-11 10 11 Re 8.1 


& TRACE 


: XB 


F(x)e(x.x.x9,x)/(3.x.x-3) 
Fron-19 to 18 step 8.1 


3 Xl; “COEFF 


SERRES 


3U 

12: INPUT ! 
:K:Y1=D:ON 
ERROR GOTO 15 

5 € 13:LPRINT "From'; 

XOZÜSMETOMSEN 7 
U;" step";K/U 

14:FOR I=XBTO XI 
STEPAKEX=T/U;: 
PRINT X:GOSUB 
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GLAZMAN 


2:REM Courbes BI 

3: REM 

6: COLOR 8 

7:WAIT D:DIM A$« 
D)x80 

8: INPUT “FCx)="; 
A$(2) 

SÉREXTESCSIZELT: 
PRINT "EF Cx)=" 
: A$(B):CLEAR 

VOS INPUT XM IN Pi 


: INPUT “XMAX 7?" 
an 





et du pas à l'aide d'un coefficient. Exemple : 
XMIN = | {XMIN = -10* TT 
XMAX = T Î donnera ee 00 
STEP = } \ STEP | 
(COEFF = 10 


Après avoir placé les stylos noirs, 
la fonction en ligne 1000 du pro- 
gramme (1000 Y=F(X):RETURN), 
et admirez ! 


dans l'imprimante, 


entrez vos valeurs... 


Les axes sont en vert, 
totes en noir. 


la courbe en rouge, 


rouge et vert 


exécutez le programme, 


les asymp- 


ARCHITECTURE DU PROGRAMME : 


1-3 : nous sommes fiers de notre oeuvre... 

6-13 : introduction des valeurs 

14-15 : déterminer le maximum de la courbe sur 
l'intervalle donné 

20-31 : tracé de la courbe 

32-43 : impression des axes et fin 

50-55 : en cas d'asymptote ou d'erreur 

1000 : la fonction 


1800: 1F ABS Y> 
YILET YI1=ABS Y 

15: NEXT 1 

29: GRAPH : 
GLCURSOR (118, 
D): SORGN : 
COLOR 3 

21:X=XxB/U:GOSUB 1 
DB9:Q=Y:L=-] 

23:ON ERROR GOTO 
54 a 

25:FOR I1=(X2+K)TO 
XISTEP K:X=I/U 
: PRINT X 

227:1F I=8LET R=L 

38: GOSUB 1208: 
LINE (Gx185/Y1 
s L+1)-CYx105/Y 
1, LISQ=Y2EEL-] 

31:NEXT 1 

32:COLOR 2:LINE < 
-112,R)-C11B,R 
) 


33:LINE (8, 8)-(0, 
L) 

34: LINERCB NEC] 
A, 18+L) 





35: LINE» C95, R+FED) 
— (125, R) 
36: LINE-:-<95,-R-10) 


-(105, R) 

39: LINE (B, L)—-(19 
; 12+L) 

49: GLCURSOR (8, -2 
+L) 

41:ROTATE 1: 
ÉEPRINTEE 

42: GLCURSOR (95,R 
12: ne "y 


43: GLCURSOR (8, L) 
TERRA 27 
END 
DOMINER AINS 
(119, L), 8, 8: 
COLOR 3 
99: 1=]+K:X=I/U: 


GOSUB 19209:Q=Y 
3: I=I+K:L=L-2: 
NEXT I:GOTO 32 
IB08:RENM Mettre, 
ICI Y=F CR): 
RETURN 





Daniel Glazman 


le DOS de À àZ 
Clock 
CIs 


Copy 





Le Modèle 1 possède plusieurs Systèmes d'Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffé- 
rents systèmes ont beaucoup de points communs, 
particulièrement ceux de la "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui. s'inspirent tous, à 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 
forme de fiches pratiques, les commandes de ces 
différents DOS, classées alphabétiquement. Ces 
fiches ne prétendent pas remplacer les manuels 
originaux qu'il est impératif de posséder (il 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pages ...). 


Leur but est de fournir à l'utilisateur une 
information rapide d'accès (classemént alphabétique), 
pratique (exemples d'utilisation), comparative 
(différents DOS) et dans une langue qu'il est censé 
connaître (français)... 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
apports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


Dans la description des commandes, les mots en 
caractères majuscules désignent les commandes 
proprement dites, ainsi que les mots-clés associés. 
Les mots en caractères minuscules ne font pas partie 
des commandes mais en représentent la forme. Au 
moment de l'exécution, il faudra leur substituer 

le ou les mots appropriés. Parmi ceux-ci, nous 
trouverons par exemple "nomfich", qui désigne 

un nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu à cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnés devrait lever toute ambiguité. 

Enfin, il faut signaler que le NEWDOS80 emploie 
indifféremment la virgule ou l'espace comme 
séparateur dans les commandes. 


CLOCK- CLS - COPY 


RECU ME PE EE TEE 


CLOCK (Paramètre) 


But : Cette commande provoque l'affichage de l'heure 
en temps réel en haut et à droite de l'écran entre 
les positions 53 et 60 (NEWDOS80 V2) ou 54 et 61(TRS 
DOS, LDOS) sous le format : HH:MM:SS. Le règlage préa- 
lable de l'heure s'effectue par la commande TIME du 
SED. La visualisation de l'horloge est mise à jour 
une fois par seconde tant que les interruptions sont 
validées. Ceci signifie que le SED interrompra pério- 
diquement (toutes les 25 ms ou 33,40 ms sous modèle 
3) les programmes non-prioritaires (background tasks) 
en cours (sous BASIC par exemple), pour mettre à jour 
l'affichage horaire. Il est à noter que les interrup- 
tions peuvent être perdues durant les entrées/sorties 
disquette ou cassette nécessitant des contrôles de 
temps très rigoureux. À chaque interruption perdue, 
l'horloge retarde de 25 ms (33,4 sur modèle 3), ren- 
dant donc sa précision tout-à-fait illusoire ! Lors- 
que les interruptions sont invalidées (CMD"T" du BA- 
SIC), la mise à jour de l'affichage de l'heure n'est 
plus assurée. 

PARAMETRE : ON ou OFF sous TRSDOS et LDOS 
Y ou N sous NEWDOS80 V2 et LDOS 


Dans ce dernier cas, les parenthèses peuvent être 
omises. 


REMARQUES : 


- Lorsque le paramètre est absent, ON ou YŸ est pris 
implicitement. 

- L'affichage de l'horloge est hors fonction (OFF) 
1ors de l'initialisation du SED. 


CLS 


Commande NEWDOS80 V2 uniquement. 


BUT : Effacement complet de l'écran et retour au mo- 
de d'affichage de 64 caractères par ligne (dans le 
cas ou celui-ci était en 32 c/1). Sur modèle 3, les 
lignes réservées en haut d'écran ne sont pas effacées. 


REMARQUE : Cette commande est identique à celle uti- 
lisée sous BASIC 


COPY ligne-de-commande 





BUT : Cette commande est une des plus riches mais 
aussi des plus complexes de NEWDOS80 V2 et LDOS. Elle 
permet la recopie d'un ou de plusieurs fichiers et 
même d'une disquette entière sous NEWDOS80. Sous LDOS, 
elle peut également effectuer une copie sur des or- 
ganes logiques (écran, imprimante, ligne RS232). 

Sauf sous TRSDOS, il est possible en utilisant un 
format spécial, de copier des fichiers sur différen- 
tes disquettes à l'aide d'une seule unité par échan- 
ge (swapping) les disquettes "source" et "destina- 
tion". 


Cette commande peut être utilisée dans tous les cas 


de duplication de fichiers sauf en ce qui concerne 


les fichiers "système" (extension /SYS) qui font par- 
tie intégrante du SED et qui nécessitent pour être 
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CLOCK-CLS- COPY 


exécutables, d'être implantés à une adresse imposée 
sur la disquette (toutefois, cette restriction ne 
semble pas s'appliquer à NEWDOS80 V2). Seule une com- 
mande globale de recopie de disquettes (BACKUP sous 
TRSDOS ou LDOS) en permet la duplication. 


En raison de la grande complexité de COPY sous NEW- 
DOS80 V2 (6 formats, une vingtaine de paramètres) et 
LDOS (6 formats), seuls seront décrits dans ce numé- 
ro le format unique de TRSDOS et le format 1 de NEW- 
DOS80 et LDOS, à savoir la duplication d'un fichier 
dit "source" ou "origine" vers un fichier "destina- 
tion" appartenant ou non à une unité de disque diffé- 
rente de l'unité origine. 


a) TRSDOS 2.3. 


COPY nomfich1 TO nomfich2 


(cette forme est également valable pour les autres 
SED) . 


Cette commande produit une copie du fichier nomfichi 
(nom/ext .motpasse:no-d'unité) sous le nom nomfich2. 
Si nomfich2 existe déjà, son ancien contenu est per- 
du et remplacé par le nouveau. Le fichier sourcen'est 
pas affecté par la duplication sauf si les spécifica- 
tions des deux fichiers sont strictement identiques, 
ce qui ne voudrait rien dire. RAPPEL la copie sur 
deux disquettes en utilisant la même unité est inter- 
dite ! 


REMARQUE : La recopie n'est bien sûr possible que sur 
une disquette destinatrice non-protégée à l'écriture 
(eéncoche démasquée) . 


b) LDOS 5.0.et 5.1 (format 1) 


Cinq formats différents peuvent être distingués sous 
la version 5.0 et 6 sous la version 5.1. 


! COPY nomfich1 TO nomfich2 (LRL=nnn, CLONE) 


Ce format est identique à celui du TRSDOS aux options 
près : 


LRL est un paramètre optionnel ou nnn désigne une 
nouvelle longueur d'enregistrement logique (Logical 
Record Length) pour le fichier destination nomfich2. 
Si ce paramètre est absent, les caractéristiques de 
nomfich1 sont conservées (nnn compris entre 1 et 256). 


CLONE permet non seulement la duplication du contenu 
du fichier nomfich1 mais aussi celle des paramètres 
figurant dans le répertoire de la disquette source 
mots de passe d'accès et de mise à jour, niveaux de 
protection et de visibilité... C'est en fait une co- 
pie conforme (un CLONE) du fichier qui est ainsi ob- 
tenue. Si CLONE n'est pas employé et si le fichier 
de destination existe déjà, les attributs (définis 
par ATTRIB) de ce dernier resteront inchangés. Dans 
le cas de création du fichier destination, l'éventuel 
mot de passe donné dans nomfich1 servira à la fois 
d'accès et de mise à jour du fichier nomfich2. 


REMARQUE : LRL et CLONE peuvent être abrégés par L 
et C- 


(L'explication de cette commande se poursuit sur les 


prochains numéros). 
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Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est 
destinée à être exploitée par le programme de 
gestion des articles décrit dans le numéro 1 de 
TRACE (pages 58 à 64). Le format est le suivant: 


Nom abrégé de l'article, numéro de page : 1 à À 
mots-clés. 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi une 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo- 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donné dans l'article. Pour 
cela aussi, faites-nous part de vos idées! 


CGP 115, 14; ESSAI, IMPRIMANTE, GRAPHIQUE, 
MATERIEL 

COMPILATEUR FORTRAN, 16: ESSAI, LANGAGE, FORTRAN, 
LOGICIEL 

LIBRAIRIE, 20: LIVRES, ESSAI 

DISQUETTE TRACE, 23: DISQUETTE, TRACE, LOGICIEL, - 
EMPLOI 

ENSEIGNEMENT ASSISTE, 25: ENSEIGNEMENT, LANGAGE, 
PILOT, LOGICIEL 

ECOUTEZ, 26: BRICOLAGE, LOGICIEL 

INITIATION, 27: LOGICIEL, INTERPRETEUR, 
COMPILATEUR, INITIATION 

AMORTISSEMENTS, 29: PROGRAMME, COMPTABILTITE, 
APPLICATION 

COURBES, 31: PROGRAMME, COURBES, APPLICATION 

JONGLEZ, 34: PROGRAMME, JEU, ASSIETTES 

OUTILS, 36: OUTILS, BASIC, ASSEMBLEUR, MONITEUR 

DEUX FACES, 38: BRICOLAGE, MATERIEL, DISQUETTE 

GRAPHIQUES, 40: PROGRAMME, GRAPHIQUES 

SAUVEGARDE CASSETTE, 43: CASSETTE, PROGRAMME, 
MATERIEL, FICHIERS 

CONVERSION, 45: CASSETTE, DISQUETTE, LOGICIEL, 
FICHIERS 

EFFETS SONORES, 47: PROGRAMME, MUSIQUE 

ROULETTE ,. 48: PROGRAMME, JEU, GRAPHIQUES 

MEMENTO, 53: MEMENTO, Z-BUG, FICHE 

MINUSCULES, 54: PROGRAMME, MINUSCULES, ECRAN, 
MATERIEL 

REBONDS, 54: PROGRAMME, CLAVIER, MATERIEL 

NOUVEAUTES, 55: POQUETTE, PC1, PC2 

CONVERSION, 56: POQUETTE, PC1, PC2, LOGICIEL 

FACE CACHEE, 56: POQUETTE, PC2, PROGRAMME, 




































ASSEMBLEUR 
FICHIERS, 58: POQUETTE, PROGRAMME, PC1, FICHIERS 
AZERTY, 60: ?OQUETTE, PROGRAMME, CLAVIER, PC2 


HISTOGXRAMMES, 62: POQUETTE, PROGRAMME, GRAPHIQUES 
BOUFMAN, 63: POQUETTE, PROGRAMME, JEU, PC2 
COURBES, 64: POQUETTE, PROGRAMME, GRAPHIQUES 

DOS DE À À Z, 65: FICHE, DOS 
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soyons sérieux. 


Reléguez au passé les forcenés de la vente, 
le langage inaccessible des techniciens, 
le radotage des répondeurs téléphoniques 


et de ceux qui promettent. 

IDEM vous propose une gamme étudiée 
de Produits Après-Vente micro-informa- 
tiques et vous offre, pour mieux vous 
guider, une équipe compétente 

à l'écoute permanente de vos besoins, 
ainsi qu’une fiche descriptive par produit. 
IDEM a choisi la Vente Par Correspon- 
dance, en réponse à votre désir légitime 
d’un choix sans contraintes Un Wafer (cassette à bande magnétiquesans fin) estillustréicien tailleréelle. 
et d’un meilleur rapport qualité-prix. : 























et ses lecteurs 


PASCAL-80 langage hautement structuré, est compatible LESE.(Exatron Stringy Floppy) vous apporte uné immense 


TRSDOS. Il permet de plus l'usage simultané de l'éditeur, RTS È 2 
de l'interpréteur et du compilateur. Classeur-manuel et souplesse d'utilisation, grâce à SE branchement direct Sur 

disquette avec progs de démo. votre ordinateur, sans besoin d'interface d'extension. A un 
PASCAL-80 TRS-80 Mod I 48K 1 disque 1190, prix nettement inférieur* au lecteur de disques, sa vitesse 


est surprenanteenviron { Ko, par seconde, sans aucune 
manipulation, et avec une fiabilité inégalée sur un système à 
bande magnétique. Son manuel décrit avec soin et en fran- 
çais, les techniques évoluées de gestion des fichiers … 
- séquentiels, sur une ou plusieurs unités chaînées. Existe aussi 
en coffret avec son système d'exploitation, 5 “wafers, des pro- se 
grammes de Does tun n classeur de waters 


DOSPLUS excellent système d'exploitation 
100% compatible Mod I/HI, 
classeur-manuel de 250 pages et disquette. 


DOSPLUS TRS-80 Mod|/Ill 1 disque 





GRAFYX SOLUTION carte installée sans soudure donnant une 
résolution graphique de 512 x 192. Compatible Basic et DOS, 
12K RAM inclus. Manuel et disquette avec 30 progs de démo. 


GRAFYX SOLUTION TRS-80 Mod II 3.290,- 
Venez voir l'ESF, en démonstration permanente chez 


80-GRAPHIX+ générateur de 128 caractères programmables MICRO-ÆENERGY_ BOUTISOFT 
CELL E UE SPA (CES PAU (NET CUE NT RCE 92, rue StEazare 9, rue de Ealande 
a 2 7 PAS 01 SORDENEX 
D'QRE Tél: (1) 2812317 Ték:(56) 9155.08 


* Prix TTC. conseillés au 1/2/83: 
IDEM 


34 bis. rue Sorbier TRS-80 Mod 1 Drive O 2495 TRS-80 Mod 3 DriveO 3.495; 
75020 - PARIS 358 44 35 TRS-80 Mod 1 Coffret 2.995 TRS-80 Mod 3 Coffret 3.995, 
VIC-20/64 bientôt disponible TRS-80 Mod 3 suivant 1995, 


Importation et Diffusion 
d'Equipement Micro-informatique 
34:bis, rue Sorbier : 75020 PARIS 
Tél: (1) 3584435 


Vendre ne suffit Fe] LTÉE Importateur exclusif 
Recherchons des revendeurs 


sur toutc la France 


Nos prix s'entendent T.T.C. -IDEM prendles frais de porta sacharge. 
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